program Test;
Var
S : string;
begin
S:='';
writeln ('Введіть значення');
Readln(S);
if S = ('так')
then writeln ('Вітаю')
end.
Объяснение:
