СРОЧНО ПОЖАЛУЙСТА,
Отцу Х лет. Возраст вводится с клавиатуры, он старше сына на 28 лет. Сколько лет сыну?

program vozrast;

var

o,s:real;

begin

writeln('Введите сколько лет Отцу');

readln(o);

if O>28 then

begin

S:=O-28;

writeln ('Сыну ',s,' лет');

end

else

writeln('Ошибка');

end.