Помогите ооочень надоо)) Пожалуйстаа)) Сроочноо прямо щааас) Пожалуйстаа) написать...

Question

Помогите ооочень надоо)) Пожалуйстаа)) Сроочноо прямо щааас) Пожалуйстаа) написать программу которая выводит на экран квадрат всех четных чисел из диапазона от а до б

Answer 1

var
a,b,i,k:integer;
begin
readln (a,b);
for i:=a to b do
if (i mod 2=0) then
begin
k:=sqr(i);
writeln (i);
end;
end.