Имеется четыре произвольных числа ABCD, которые вводятся с клавиатуры

var a,b,c,d: integer; beginwriteln ('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.