var i,n: integer;
begin
writeln ('Введите n');
readln(n);
i:=0;
repeat
if i mod 2 = 0 then
begin
writeln(i);
i:=i+1;
end;
until i=n;
end.

var i,n: integer;
begin
writeln ('Введите n');
readln(n);
i:=0;
for i:= 1 to n do
if i mod 2 = 0 then
writeln(i);
readln;
end.

var i,n: integer;
begin
writeln ('Введите n');
readln(n);
i:=0;
while i<=n do
if i mod 2 = 0 then
begin
i:=i+1;
end;
readln;
end.

var
S, a, b, c: real;
begin
writeln ('Введите числа');
readln (a);
readln (b);
readln (c);
S:= a*b*c;
writeln ('Ответ=',S);
readln;
end.