ПОМОГИТЕ, ПРОГРАММИСТЫ!
Вообщем надо написать программу, для определения большего из 4 чисел. Среда программирования - Pascal ABC. Для двух чисел я написал вот так:
 |
Цитата: |
 |
|
|
|
|
|
|
|
uses crt;
var
a,b,max:integer;
begin
writeln('Введите числа:');
read(a,b);
if a>b then begin
max:=a;
write('Нибольшее число: ');
write(max);
end
else begin
max:=b;
write('Нибольшее число: ');
writeln(max);
end;
end. |
|
 |
|
 |
|
Как я понял, можно ставить только один знак за одно условие. Помогите, не понимаю, как сюда цикл привязать

.
А, числа заведомо не равные.