Кто информатику понимает помогитеееее?????!!!!найдите большее из 3 чисел??????????!!!!!

1

Ответы и объяснения

2013-11-15T16:59:08+04:00
Program qq;
var a, b, c, max:integer;
Begin
Writeln (‘Введите целые числа‘);
Read (a, b, c);
max:=a;
If max<b then
max:=b;
If max<c then
max:=c;
Writeln (‘Максимальное число‘, max);
End.