var name:string;
n,a,b:real;
begin
a:=2;
b:=6;
writeln('Введите ваше имя:');
readln(name);
writeln('Здраствуйте , ',name,'.');
end.
var name:string;
n,a,b:real;
begin
a:=2;
b:=6;
writeln('Введите ваше имя:');
readln(name);
writeln('Здраствуйте , ',name,'.');
end.