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

Пользователь вводит четыре числа, найдите из них максимальное.

<pre class="brush: php">program project7;

{
Пользователь вводит четыре числа, найдите из них максимальное.
}
 var
   a,b,c,d,per1,per2:integer;
begin
  writeln('Vvedite celoe chislo a: ');
  readln(a);
  writeln('Vvedite celoe chislo b: ');
  readln(b);
  writeln('Vvedite celoe chislo c: ');
  readln(c);
  writeln('Vvedite celoe chislo d: ');
  readln(d);

  if(a>b) then per1:=a
  else per1:=b;

  if(c>d) then per2:=c
  else per2:=d;

  if(per1>per2)then writeln('max=',per1)
  else writeln('max=',per2);

end.  </pre> 

Консоль:

Vvedite celoe chislo a: 
3
4

Vvedite celoe chislo b: 
1
5

Vvedite celoe chislo c: 
6
5

Vvedite celoe chislo d: 
9
0

max=90