написать программки,выполняющие данные задачи. Для всех числовых типов данных использовать

1.                                                        

program raf105;

var hour,sec: integer;

begin

write('Введите количество часов: ');

readln(hour);

sec:= hour*60*60;

writeln('Это ',sec,' сек.');

end.

2.                                                        

program raf105;

var Xa,Ya,Xb,Yb,k: real;

begin

write('Введите координаты первой точки (Х и Y): ');

readln(Xa,Ya);

write('Введите координаты второй точки (Х и Y): ');

readln(Xb,Yb);

k:= (Yb-Ya/Xb-Xa);

writeln('Угловой коэффициент: ',k:0:2);

end.

3.                                                        

program raf105;

var abc,a,b,c,sum,pro: integer;

begin

abc:= random(100,999);

a:= abc div 100;

b:= (abc div 10) mod 10;

c:= abc mod 10;

sum:= a+b+c;

pro:= a*b*c;

writeln('Число ',abc);

writeln('Сумма цифр: ',sum);

writeln('Творение цифр: ',pro);

end.

PascalABC 3.4.2