Информатика 9 класс . данный рисунок надо написать на языке паскаля. нахождение наибольшего из трёх чисел

var a, b, c, d: integer;

begin

   write('Введите A: ');

   readln(a);

   write('Введите B: ');

   readln(b);

   write('Введите C: ');

   readln(c);

   if a > b then

       d:=a

   else

       d:=b;

   if c > d then

       d:=c;

   writeln('Наибольшее число: ', d);

end.