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

запись:
Дано:
a, b, c – целые числа.
Присвоить а – наибольшее значение.
Решение:
Если

write ('vvedite tri chisla');
readln (a,b,c);

Дано:
a, b, c – целые числа.
Присвоить а – наибольшее значение.
Решение:
Если a>b, то а:=а, иначе а:=b;
Если a>с, то а:=а, иначе а:=с.

если х

write ('vvedite dva chisla');
readln (x,y);

Решение:
Если х<=у,
то z:=х+у,
иначе z:=1-х+у.

числа. Меньшее из них замените полусуммой этих чисел, а большее