Помогите в Pascal

№4. Дана величина A, выражающая объем информации в мегабайтах. Составьте программу перевода величины А в более мелкие единицы информации.

№5. Даны длины сторон треугольника A, B, C. Найти площадь треугольника S. Составьте программу решения поставленной задачи.

, где р - полупериметр

№6. Для заданного количества суток (tfh) требуется определить количество часов (h), минут (m) и секунд (c).

4.

var

a:real;

begin

write ('Введите количество мегабайт='); read (a);

writeln ('Количество килобайт=', a*1024);

writeln ('Количество байт=', a*1024*1024);

writeln ('Количество бит=', a*1024*1024*8);

end.

5.

var

a, b, c, p, S:real;

begin

write ('Введите сторону a='); read (a);

write ('Введите сторону b='); read (b);

write ('Введите сторону c='); read (c);

P: = (a+b+c) / 2;

S:=sqrt (p * (p-a) * (p-b) * (p-c));

write ('S=', s:5:2);

end.

6.

var

a:integer;

begin

write ('Введите количество суток='); read (a);

writeln (24*a,' ','часов');

writeln (60*24*a,' ','минут');

writeln (60*60*24*a,' ','секунд');

end.