и В.
Program n1;
{‘составить программу для нахождения максимального из двух чисел
А и В’}Uses crt;
Var A,B, max: integer;
Clrscr;
Write(‘введите значение А’);
Readln (A);
Write(‘введите значение B’);
Readln (B);
IF A>B THEN max:=A
ELSE max:=B;
Writeln (‘Максимальное значение’ , A, ‘и’ ,B, ‘=‘,max);
Readln;
End.
начало
А>B
Max:=B
Max:=A
Ввести А,В
Вывести max
конец
да
нет
