Задание 3. Нахождение максимума двух чисел

Найти максимум двух чисел a и b.

1. Запустите Turbo Pascal.

2. В окне редактирования наберите текст программы:

Program Uslovie_3;

var a, b, max:real;

begin

Writeln(' Введите значение a');

Read(a);

Writeln(' Введите значение b');

Read(b);

if a >= b then max:=a

else max:=b;

Writeln ('a=', a:4:2,' b =', b:4:2);

Writeln ('max =', max:4:2);

end.

3. Запустите процесс компиляции программы.

4. Запустите программу на выполнение.

5. Протестируйте программу при некоторых значениях переменных a и b.

6. Сохраните программу на диске под именем uslov3.