Только сегодня начал учить Паскаль и заметил у вас кучу ошибок. Вы сделали очень много лишних действия, и непонятно, чему равны переменные molod и sredny? А если это строки, то b и а тоже должны быть строковыми. Я бы сделал так
program haracteristy;
uses crt;
var vozrast: Integer;
begin
clrscr;
writeln ('Введите свой возраст');
read (vozrast);
if (vozrast >0) and (vozrast <18) then
write ('Вы еще очень молоды')
else if vozrast >18 then
write ('Вы в расцвете сил')
else
write('Ошибка! Возраст не может быть меншье нуля');
end.
Program sport;
var h1, m1, s1, h2, m2, s2, h, m, s, st, fin, p, i : integer;
begin
writeln('Старт.');
write('Количество часов ');
read(h1);
write('минут ');
read(m1);
write('секунд ');
read(s1);
st:=s1+m1*60+h1*3600;
writeln('Финиш.');
write('Количество часов ');
read(h2);
write('минут ');
read(m2);
write('секунд ');
read(s2);
fin:=s2+m2*60+h2*3600;
p:=fin-st;
i:=p;
s:=p mod 60;
p:=p div 60;
m:=p mod 60;
p:=p div 60;
h:=p mod 60;
writeln('Итог - ',h,' часов ', m,' минут ',s,' секунд ');
write(' Всего ',i,' секунд.');
end.
Сообщение содержит 15 символов ⇒ объем сообщения = 15*4 = 60 бит.