Ввести 2 числа. если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран?

program test; var a, b: integer; begin    write('enter two numbers: ');     readln(a, b);     if a*b < 0 then      writeln(a*b*(-2))    else      writeln(a*b*3);     readln; end.

Для начала нужно решить чисто , решения на листочках.  поскольку школьная, то вариант совпадения точек не рассматривается алгоритмического языка не знаю, но поскольку это вариант псевдокода, то думаю алгоритм вполне понятен алг круг_по_двум_точкам_и_радиусу(арг действ ax, арг действ ay, арг действ bx, арг действ by, арг действ r)     дано | a,b,r     надо | нарисовать окружность нач     ввод ax, ay, bx, by, r     действ dab = ((ax - bx)^2 + (ay - by)^2)^(0.5) // длина ав     действ h = (r^2-dab^2/4)^(0.5) // высота и длина вектора ом     // м середина ав     действ mx = (ax + bx) / 2      действ my = (ay + by) / 2     //первый круг     действ  ox = mx + (ay - by) * h/dab     действ  oy = my - (ax - bx) * h/dab     нарисовать_круг(ox, oy, r)     //второй круг     ox = mx - (ay - by) * h/dab     oy = my + (ax - bx) * h/dab     нарисовать_круг(ox, oy, r) кон

3. program n3; uses crt; var b: integer; begin write('введите число '); read(b); writeln(b); end.4.  program n4; uses crt; var c: real; begin write('введите число '); readln(c); c: =c*2; writeln('ответ равен  'c); end.5.  program n5; uses crt; var y,z,x: real; begin write('введите число '); readln(x); y: =5.5; z: =x-y; writeln('ответ равен  'z); end.6.  program n6; uses crt; var y,x,z: real; begin write('введите число  '); readln(x); y: =2.5; z: =x/y; writeln('ответ равен  'z); end.