Varn,i:longint;beginread(n);for i:=1 to n doif i mod 2<>0 then write(i,' ');end.
===== PascalABC.NET =====
begin
var a := ReadReal('Сторона квадрата:');
Println('Его площадь:', a * a)
end.
катеты идут от прямого угла, напротив гипотенуза
от точки вправо- длина 1 катета
от точки вверх-длина 2 катета
полученые отрезки соединяем