Максимум из
3-х чисел

 

Даны 3 целых различных числа. Нужно определить, которое
из них самое большое.

 

Input

Со стандартного устройства ввода
вводится через пробел 3 целых числа, не превосходящих по модулю 10000.

 

Output

Нужно выдать на стандартное
устройство вывода через пробел ответ в следующем формате:

“First number is maximal”

“Second number is maximal”

“Third number is maximal”
В циклах с пред и пост условием или цикл с параметром 

Там идет считывание, я его вывел при условии, что пишется в строку программы. Но я чуть ошибся, не доглядел, что Таям может отсутствовать С.

Эххх... Скука, а я уж понадеялся чем-нибудь полезным заняться...

Vara,b,i,c:integer;begin read(a);read(b);C:=10001Read(c);for i:=0 to 1 do beginI:=1;If c<10001 thenif a>b then if a>c then writeln(1) else writeln(3)else if b>c then writeln(2) else writeln(3)ElseIf a>b then writeln(1) else writeln(2); end;end.