S*
Sandro *******
begin
writeln('Саша Погадаева');
end.
P.S. можешь изменить цвет командой TextColor(Green)
var
fam, ima:string[20];
begin
write(' фамилия '); readln(fam);
write(' имя '); readln(ima);
writeln( 'привет ',fam,' ',ima);
readln;
end.
program tp;
uses CRT;
const
string='Билл Гейтс"
begin
clrscr;
write ('Имя/Фамилия: ' , string);
end .