1. определить значения целочисленной переменной s после выполнения алгоритмов: a). s: =1, a: =1 для i от 1 до 3 повторять нц s: =s+ix(i+1)a a: =a+2 кц (составьте блок-схему), б). для i от 1 до 3 повторять нц s: =0 для j от 2 до 2 повторять нц s: =i+j кц кц (составить блок-схему) 2). последовательно вводятся n целых чисел. найти максимальное из них.
var s,a,i:integer;
begin
s:=1;i:=1;
for i:=1 to 3 do
s:=s+i*(i+1);
a:=a+2;
writeln (S,' ',a);
end.