Создайтн программу, котарая предлогает ввести с клавиатуры имя пользователя, а затем его.

Program test;
Var
a:string;
Begin
Write('Введите ваше имя: ');
Readln(a);
Writeln(' Привет ', a);
End.