Сообщение от да_ладно

хах)
тогда так

program russkey yazik;
var: xuy znaet;
begin
writeln('Ya gramotniy');
readln(pro);
readln;
end.