1111+1=1112;101+11=112 так или нет
var i := 3;
var sum := 0;
while i < 91 do
begin
sum += i;
i += 3;
end.
writeln(sum);
Program n1;
const n=13;
var a: array[1..n] of real;
i: integer;
p: real;
begin
p:=1;
for i:=1 to n do
begin
readln(a[i]);
p:=p*a[i];
end;
writeln('массив:');
for i:=1 to n do write(a[i],' ');
writeln;
writeln('произведение: ',p);
end.
Uses Graphabc;
begin
SetWindowWidth(530);
SetWindowHeight(200);
SetPenWidth(5);
Rectangle(250, 10, 310, 70);
Rectangle(210, 70, 350, 130);
Rectangle(170, 130, 390, 190);
end.