Ответ: Если на паскале , то вот :

program find;

var

   a, b, c, max: integer;

begin

   readln (a, b, c);

   if a >= b then

       max := a

   else

       max := b;

   if c > max then

       max := c;

   writeln  (max);

end.

Объяснение: Всё ясно как день. Объявляем 4 переменные с типом int, затем считываем их(пользователь вводит их вручную), после происходит проверка(такая же , как на схеме) и в конце вывод переменной max, в которой будет находится максимальное число из 3х