Первая программа:
var
a,b:integer;
begin
writeln('Введите a: ');
read(a);
writeln('Введите b: ');
read(b);
writeln('Площадь клумбы: ',a*b);
writeln('Максимальное кол-во цветов: ',(a*b)/0.5);
end.
Вторая программа:
var
s,j,i,a:integer;
begin
writeln('Введите количество членов последовательности: ');
readln(j);
s:=0;
for i:=1 to j do begin
writeln('Введите число: ');
readln(a);
s:=s+a;
end;
writeln('Сумма чисел в последовательности: ',s);
end.
