Помогите написать программу в паскале пожалуйста
Ввести 2 числа. Если их произведение отрицательно, умножить его на –2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран. (Написать программу, начертить блок-схему)
По дате
По рейтингу
1234567891011121314
Program P1;
uses crt;
var a, b: real;
begin
clrscr;
writeln ('Введите с клавиатуры 2 числа, после ввода каждого числа нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.');
write ('Введите 1-ое число: ');
readln (a);
write ('Введите 2-ое число: ');
readln (b);
if (a*b<0) then writeln ('Ответ: ', (a*b)*-2) else writeln ('Ответ: ', (a*b)*1.5);
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.