Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Написать программу в паскале. Дать 3 числа, определить максимальное из них.

Ответ оставил Гость

Var   a,b,c,max:integer;
Begin     
Writeln(Введите 3 числа!);     
Readln(a,b,c);     
If a>b then max:=a           
         else max:=b;     
If max>c then max:=max             
              else max:=c;     
Writeln(Макс = , max);
End.