Ввести 2 числа. если их произведение отрицательно, умножить его на 8 и вывести на экране, в противном случае увеличить его в 1,5 раза и вывести на экран. (написать программу, начертить блок-схему).

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

qbasic

screen 7

input x

input y

input c

s=x+y/2*c

print "x+y/2*c="; s

end