2 задача
program myprogram;
var p, s: integer;
p:=2;
s:=0;
begin
p:= p * 1,5;
s:= s + p;
if (p > 5) then
begin
write (s);
end;
end.
Program z4;
var s,l:integer; {объявляем переменные}
begin
s:=0; {начальное значение}
l:=0; {начальное значение}
while l<3 do {пока l<3 выполняем..}
begin {начало цикла}
l:=l+1; {увеличиваем l}
s:=s+l*l; {вычисляем текущее значение s}
end; {конец цикла}
writeln('s = ',s); {выводим s}
end.
19,29,39,49,59,69,79,89,99,109,129