t.txt
program  q; 
const a=90;
var b,c,d;
procedure p;
 begin 
    b:=b*a;
d:=b;
    c:=b2;
Error0:     error(7)!
    write(b);
write(c);
 end

begin
  read(b); 
 while b#0 do
   begin
   call p;
   read(b);
   end
end.