uses crt;
var ch,i,j:integer;beginfor i:=1 to 5 dobeginif (i mod 2 <> 0 ) thenwriteln('kvadrat ',i,' = ',sqr(i));end;end.
выводит квадрат 1 = 1
квадрат 3 = 9
квадрат 5 = 25
uses crt;
var ch,i,j:integer;
begin
for i:=1 to 5 do
begin
if (i mod 2 <> 0 ) then
writeln('kvadrat ',i,' = ',sqr(i));
end;
end.
выводит квадрат 1 = 1
квадрат 3 = 9
квадрат 5 = 25