Имеется четыре произвольных числа ABCD,которые вводятся с клавиатуры.Программа должна давать ответ на вопрос правда ли что:первое число самое большое?

Question

Имеется четыре произвольных числа ABCD,которые вводятся с клавиатуры.Программа должна давать ответ на вопрос правда ли что:первое число самое большое?

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.