program vozrast;
var
o,s:real;
begin
writeln('Введите сколько лет Отцу');
readln(o);
if O>28 then
S:=O-28;
writeln ('Сыну ',s,' лет');
end
else
writeln('Ошибка');
end.
program vozrast;
var
o,s:real;
begin
writeln('Введите сколько лет Отцу');
readln(o);
if O>28 then
begin
S:=O-28;
writeln ('Сыну ',s,' лет');
end
else
writeln('Ошибка');
end.