определите значение переменной a после выполнения алгоритма:
var s,k: integer;
begin
s:= 0
for k:=14 to 18 do
s:=s+7;
writeln(s);
end.​