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

http://fkn.ktu10.com/?q=node/8539
Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and (все операторы if должны быть в полной форме).
С вложенными блоками (без and).
Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.

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

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

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