var s:string;
begin
writeln('Ваше имя? ');
readln(s);
if s='Вася'
then writeln('Привет, Вася')
else writeln('А где Вася?');
end.
var s:string;
begin
writeln('Ваше имя? ');
readln(s);
if s='Вася'
then writeln('Привет, Вася')
else writeln('А где Вася?');
end.