Program Abc;
uses crt;
var name : string;
begin
write('Как завут вашего друга?');
readln(name);
write('Вашего друга зовут ', name,'.');
end.
