Pascal Урок 9 Задача 6 Решение

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

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

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

program U9Z6H1;
var a,b,c: integer;

begin
  writeln('vedite chislo');
  readln(a);
  writeln('vedite chislo');
  readln(b);
  writeln('vedite chislo');
  readln(c);
  if(a>b)and(a>c)then
    writeln('pervoe chislo bolshe ', a);
  if(b>a)and(b>c)then
    writeln('vtoroe chislo bolshe ', b);
  if(c>a)and(c>b)then
    writeln('trete chislo bolshe ', c);
  readln();
end.                        

program U9Z6H2;
var
a,b,c:integer;

begin
  writeln('Vedite chislo');
  readln(a);
  writeln('Vedite chislo');
  readln(b);
  writeln('Vedite chislo');
  readln(c);
  if(a>b)then
    if(a>c)then
      writeln('Pervoe chislo bolshe', a)
    else
      writeln('trete chislo bolshe ', c)
  else
    if(b>c)then
      writeln('vtoroe chislo bolshe ', b)
    else
      writeln('trete chislo bolshe ', c);
  readln();
end.                          

program U9Z6H3;
var a,b,c,d: integer;

begin
  writeln('vedite chislo');
  readln(a);
  writeln('vedite chislo');
  readln(b);
  writeln('vedite chislo');
  readln(c);
  if (a>b) then
    d:=a
  else
    d:=b;
    if (c>d) then
    d:=c;
    writeln('Maks chislo ', d);
  readln();
end.