Составить программы в turbo pascal. 1)дано три точки a,b,c на числовой оси.найти длинну отрезка ac и bc и их сумму. 2)задано четыре целых числа a,b,c,d.выяснить произведение этих чисел больше 300? 3)дано целое число ,если оно положительное,то прибавить к нему 1,а если отрицательное.то отнять от него 2.вывести полученое число.

первое

program proga;

uses crt;

var

a,b,c,x,y,z:integer;

begin

clrscr; 

writeln('Введите значения точек');

 readln(a);  readln(b); readln(c); 

x=b-c;

y=c-b;

z=x+y;

readln;

end.

второе

program proga;

uses crt;

var

a,b,c,x,y,z:integer;

begin

clrscr; 

 writeln('Введите 4 числа');

 readln(a);  readln(b); readln(c);   readln(x); readln(y);  

z=a*b*c*y*x;

if z>300 then

writeln('произведение этих чисел больше 300')

else

 writeln('произведение этих чисел меньше 300') ;

readln;

end.

и соответственно третье

program proga;

uses crt;

var

a:integer;

begin

clrscr; 

 writeln('Введите число');

 readln(a);

if a>0 then

a=a+1;

writeln(a) 

else

if a<0 then

a=a-2;

writeln(a) 

 else

writeln('вы ввели 0');

readln;

end.