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

Пример задачи
Присвойте величине а значение наибольшего из трех заданных чисел.
Математическая запись:
Дано:
a, b, c – целые числа.
Присвоить а – наибольшее значение.
Решение:
Если a>b, то а=а, иначе а=b;
Если a>с, то а=а, иначе а=с.

Текст программы:
program naibolsh;
var a,b,c:integer;
begin
write ('vvedite tri chisla');
readln (a,b,c);
if a>b then a:=a
else a:=b;
if a>c then a:=a
else a:=c;
write ('naibolshee=' ,a);
readln
end.
Дано:
a, b, c – целые числа.
Присвоить а – наибольшее значение.
Решение:
Если a>b, то а:=а, иначе а:=b;
Если a>с, то а:=а, иначе а:=с.

Задача
Даны числа х и у. Вычислите число z, равное х+у, если х<=у и 1-х+у в противном случае.
Решение:
Если х<=у,
то z=х+у,
иначе z=1-х+у.

Текст программы:
program summa;
var x,y:integer; z:real;
begin
write ('vvedite dva chisla');
readln (x,y); if x<=y then z:=x+y else z:=1-x+y;
write ('z=',z:3:4);
readln
end.
z – real, так как при х>у, z может быть отрицательным числом.
Решение:
Если х<=у,
то z:=х+у,
иначе z:=1-х+у.