{* Задача 408 *}

Unit ZADACH408;
Interface
Implementation
Begin
 writeln('Даны числа A, B, C. Найдите максимальное число из них. Составьте блок-схему и напишите программу решения задачи.');
End.

Program zadach408;

Uses zadach408.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  a : real;
  b : real;
  c : real;
Begin
  writeln('введите числа А, В, С');
  readln(a, b, c);
  If a > b Then
    Goto 1;
  If b > c Then
    Goto 2;
  1:
  If a > c Then
    Goto 3;
  writeln('C большее');
  Goto 4;
  2 : writeln('B большее');
  Goto 4;
  3 : writeln('A большее');
  4:
End.