Делаю все виды работ для ТУСУР! Обращайтесь!
Что будет напечатано программой?
var x, y: char;
procedure P(x: integer);
const y=false;
begin write(x, y) end;
begin x:='*'; y:='1';
P(1); write(x, y);
end.