Задача 6 Урок 9

http://fkn.ktu10.com/?q=node/8539

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and.
С вложенными блоками (без and).
Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.
Указание: Сначала посрайтесь написать все три решения самостоятельно (по 20 минут размышления на каждую задачу хотя бы), если не получается (или после решения) также можно посмотреть это видео-пояснение(link is external).

program z61;
var a, b, c : integer;
begin
writeln ('vvedite tri chisla:');
readln (a, b, c);
if (a>b)and(a>c) then
writeln(a);
if (b>c) and (b>a) then
writeln(b);
if (c>a) and (c>b) then
writeln(c);
readln();
end.

program z62;
var a, b, c : integer;
begin
writeln ('vvedite tri chisla:');
readln (a, b, c);
if (a>b) then
if (a>c) then
writeln(a);
if (b>c) then
if (b>a) then
writeln(b);
if (c>a) then
if (c>b) then
writeln(c);
readln();
end.

program z63;
var a, b, c , max: integer;
begin
writeln ('vvedite tri chisla:');
readln (a, b, c);
max:=a;
if (max>b) then
max:=a
else
max:=b;
if (max>c) then
writeln(max)
else
writeln(c);
readln();
end.