Паскаль!!!!

1.Напишите программу, запрашивающую у
пользователя два момента времени (количество часов, минут и секунд) и
сообщающую число секунд, прошедшее между этими двумя моментами.



2.Ввести
два числа. Если сумма этих чисел четная, найти произведение, в противном
случае, найти частное этих чисел.



3.Одноклеточная
амёба каждые 3 часа делится на 2 клетки. Определить, сколько будет амёб через
3,6,9,12,…24 часа.



4.Дан одномерный массив А(i), i=7, заданный случайным образом.
Вывести на экран массив, значения которого находятся в диапазоне [0;10]

1)var a,b,c,a1,b1,c1,s:integer;beginwriteln('Введите количество часов в первом моменте времени');readln(a);writeln('Введите количество минут в первом моменте времени');readln(b);writeln('Введите количество секунд в первом моменте времени');readln(c);writeln('Введите количество часов во втором моменте времени');readln(a1);writeln('Введите количество минут во втором моменте времени');readln(b1);writeln('Введите количество секунд во втором моменте времени');readln(c1);s:=abs(a*3600+b*60+c-a1*3600-b1*60-c1);writeln(s,' секунд');end.2)var a,b:integer;s:real;beginwriteln('Введите первое число');readln(a);writeln('Введите второе число');readln(b);if (a+b) mod 2 =0 then s:=a*belse s:= a/b;writeln(s);end.3)var b,s,n:real;beginwriteln('Введите количество часов');readln(n);n:=n/3;s:=2*power(2,(n-1));writeln(s,' амёб');end.4)var a:array[1..7]of integer;i:integer;beginfor i:=1 to 7 dobegina[i]:=random(11);writeln('a[',i,']= ',a[i]);end;end.

3 - не совсем то