Ответил уже ранее в прошлом вопросе
Var i: integer;
begin
for i:=1 to 9 do
writeln('7 * ', i, ' = ', 7 * i)
<span>end.</span>
Var
a, b, c: real;
begin
writeln('Введите два катета A,B и гипотенузу С треугольника');
readln(a, b, c);
if (c >= a + b) or (a + b + c = 0) then writeln('Такого треугольника не существует')
else begin
if sqr(c) = sqr(a) + sqr(b) then writeln('Прямоугольный');
if sqr(c) > sqr(a) + sqr(b) then writeln('Тупоугольный');
if sqr(c) < sqr(a) + sqr(b) then writeln('Остроугольный');
end;
end.
Все числа от 0 до миллиона (1000^2) будут целыми, так как это любые числа