Задача на турбо паскале

Question

Введите три числа a,b,c (a,b,c не равно друг другу) . Составить программу поиска максимального значения и вывести максимум на экран.

Диана Сердюк · Accepted Answer

Пишите на почту или в асю 586178755

Leeloominai Мингулова · Answer

Я те скину текст проги на почту отправлю ( а то запрещает английскую раскладку)

Тимур Донской · Answer

var 
 a,b,c: Integer; 
Begin 
 ReadLn(a); 
 ReadLn(b); 
 ReadLn(c); 
 if a>b then 
 if a>c then 
 WriteLn(a) 
 else 
 WrileLn(c) 
 else 
 if b>c then 
 WriteLn(b) 
 else 
 WriteLn(c) 
 ReadLn; 
End; 
Это упрощённо - нет защиты от ввода букв и одинаковых цифр (обязательно? ) 
Возможно при выводе там будет WriteLn(IntToStr(переменная)) , давно на нём уже не писал.