Безотлагательно!!! С паскале!!! Сделать программку!!!Даны два числа. Вывести наивеличайшее из этих

Безотлагательно!!! С паскале!!! Сделать программку!!!
Даны два числа. Вывести наивеличайшее из этих чисел, увеличенное в три раза.
Даны три числа. Вывести наименьшее из этих чисел, уменьшенное на 10.

Задать свой вопрос
1 ответ
Var a,b:real;
Begin
Write('Введите два числа: ');
ReadLn(a,b);
if a gt; b then WriteLn(a*3)
else WriteLn(b*3);
Write('Введите три числа: ');
Read(a,b);
if a gt; b then a:=b;
ReadLn(b);
if a gt; b then a:=b;
WriteLn(a-10);
End.


Пример работы программы:

Введите два числа: 1 3
9
Введите три числа: 2 1 3
-9
Никита
спасибо
Vladimir
спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт