Написал программу на паскале:
program chat;
var vozrast,rasnitsa: Integer;
var imya: String;
begin
WriteLn('как тебя зовут?');
ReadLn(imya);
WriteLn('Сколько тебе лет?');
ReadLn(vozrast);
Writeln('Привет, ', imya);
If vozrast >= 18 then begin
Write('Ты слишком взрослый, пока');
end
Else begin
rasnitsa := 18-vozrast;
Writeln('Готова с тобой общаться ещё ', rasnitsa, ' лет');
end;
Writeln('я устала, пока');
end.