program pozdrav;
uses crt;
var TvojeMeno: string;
begin
  writeln('Zadaj tvoje meno a priezvisko');
  readln(TvojeMeno);
  writeln('Zdravim Ta, ',TvojeMeno,'!');
  readln;
end.