ИНФОРМАТИКА 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.