1)010 так как с остальными текст будет невозможно разобрать
Var a, n, k, t, s:integer;
Bedin
Readln(n)
S:=0;
For i:=1 to n do
If i mod 2 =0 then
Begin
For t:=1 to i do
K:=k*t;
S:=s+k;
End;
Writeln(s);
End.
Program pr;
Var a, b, c, d:integer;
Begin
Write('A=');
Readln(a);
Write('B=');
Readln(b);
Write('C=');
Readln(c);
Write('D=');
Readln(d);
if a
Переменная sum после выполнения программы будет равна 2.