Условие:
Разветвлённые алгоритмы
Даны действительные числа А, В. Если они оба отрицательные, то заменить каждое из них его квадратом, иначе — положительные из них увеличить в два раза.
Решение:
var
a, b:real;
begin
write('A = ');
readln(a);
write('B = ');
readln(b);
if(a 0) And (b 0) then
begin
a := Power(a, 2);
b := Powe...