Имеется четыре произвольных числа 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.