Написать программу,по которой компьютер приветствовал бы своего хозяина, а при попытке ввести какое-либо другое имя спрашивал бы: А где Вася?

Var s:string;
begin
writeLn(Назовите Ваше имя);
readln(s);
if (s=Вася)or(s=вася) then
writeLn(Привет, ,s)
else writeLn(А где Вася?);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.