Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end.
Практики не было давно.
Получим 45 трехзначных чисел
CLS
<span>
N = 1</span><span>
FOR i = 1 TO 9</span><span>
FOR j = 0 TO 9</span><span>
FOR k = 0 TO 9</span><span>
IF i + k = j THEN</span><span>
PRINT N; i * 100 + j * 10 + k</span><span> N = N + 1</span><span>
END IF</span><span>
NEXT k</span><span>
NEXT j</span><span>
NEXT i
Программа выдает 45 таких чисел
</span>
Вещественный тип данных
для pascal - real
Var lc:real;
Begin
write('Кол-во лошадиных сил = ');
readln(lc);
write(lc * 0.735);
End.