Решение задач с ветвлением

Домашнее задание. Даны три целых числа a, b, c. Составить блок-схему нахождения наибольшего из трех чисел.
Начало
конец
a,b,c
Вывод c
a>b и a>c
b>c
Вывод (a)
Вывод (b)
Да
Нет

Чтение блок схемы:
Вводим три числа a, b, c.
Сравниваем а и b, b и с.
Если а больше b и а больше с, то ДА (наибольшим числом является а). Выводим число а на экран.
Если это условие не выполняется, то идем по ветке Нет и сравниваем b и с.
Если b больше с, то наибольшим является b и его выводим на экран, в противном случае наибольшим будет число с.

Program a1; заголовок программы (начало)
Var раздел описаний типов переменных
a,b,c: integer; все переменные – целые числа
Begin начало программы
а:=3; b:=2; c:=5; в ячейки памяти записываем значения а, b, с
If (a>b) and (a>c) then сравниваем а с b и с. Если условие выполняется, то
Write(a) выводим на экран а
Else если Нет (else), то
if b>c then сравниваем b и с. Если b больше,
Write(b) то на экран выводим b
Else иначе
Write(с); выводим с
End. Конец