Решение задач

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

begin

writeln(i);
i:=i+2;
end;
until i=n;
end.

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

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

Циклы в Паскале. Домашнее задание.

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

Произведение трех чисел

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