Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  d
Language: PASCAL
Code:
var
    a1, a2, a3, a4, a5 , max: integer;
 
begin
    write ('Введите пять числа: ');
    readln (a1, a2, a3, a4, a5);
 
    if a1 >= a2 then
        max := a1
    else
        max := a2;
 
    if a3 > max then
        max := a3;
       if a4>a5 then max:=a4 else max:=a5;
       if a4>a3 then max:= a4 else max:=a3;
       if a5>a3 then max:=a5 else max:=a3;
 
    writeln ('Максимальное из них: ', max);
 
readln
end.
Comments: