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
