Написать программу turpo pascal что ! вывести на экран свое имя.

Begin
write ('Здесь имя которое нужно вывести на экран');
end.

Ещё один вариант:

var a:string;
begin
write ('Как Вас зовут? ');
readln (a);
WRITELN;
write ('Вас зовут: ',a);
end.