Составить программы в 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.