Составить программы в Turbo Pascal. 1)Дано три точки A,B,C на числовой оси.Найти длинну отрезка AC и BC и их сумму. 2)Задано четыре целых числа a,b,c,d.Выяснить произведение этих чисел больше 300? 3)Дано целое число ,если оно п...

первое 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.