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