Текстовая (несмотря на то, что тут только дата и два числа) и графическая.
label ra,rb;
var a,b,c: integer;
begin
write('Введите сторону a: ');
readln(a);
ra: write('Введите сторону b: ');
readln(b);
if b>a then
begin
rb: write('Введите сторону c: ');
readln(c);
if c>b then begin
if sqr(c)=sqr(a)+sqr(b) then writeln('Этот треугольник - прямоугольный') else writeln('Этот треугольник - не прямоугольный');
end else begin writeln('Введите число больше, чем ',b); goto rb; end;
end else begin writeln('Введите число больше, чем ',a); goto ra; end;
end.
Ответ D.
If then - оператор условия.
If (x>y) and (y>z) - если х больше y и y больше z
Then a:=x+y+z - то присвоить а значение суммы x, y и z
В случае невыполнения пердусловия
От того какой он и что в нем