Вопрос от посетителя:
имеется четыре произвольных числа ABCD,которые вводятся с клавиатуры.Программа должна давать ответ на вопрос правда ли что:первое число самое большое?
Илюха отвечает:
var a,b,c,d:integer;
begin
writeln (‘Vvedite a’);
read(a);
writeln (‘Vvedite b’);
read(b);
writeln (‘Vvedite c’);
read(c);
writeln (‘Vvedite d’);
read(d);
if (a>b) and (a>c) and (a>d) then writeln(‘Samoe bolshoe chislo – a’)
else writeln(‘A ne samoe bolshoe’);
end.