Apple iPod Touch форум посвященный плееру

Program sqr_ur;
label 1,io;
var
   y1: char;
   a,b,c: integer;
   d: real;
   x,y: real;
begin


   writeln('_______  _____  _     _       _____   ______  _____   ______');
   writeln('|______ |     |  \___/       |_____] |_____/ |     | |  ____');
   writeln('|       |_____| _/   \_      |       |    \_ |_____| |_____|');
   writeln('„®Ўа® Ї®¦ «®ў вм ў Їа®Ја ¬¬г аҐиҐ­Ёп Єў ¤а в­ле га®ў­Ґ­Ё©!');

   writeln('„«п Їа®¤®«¦Ґ­Ёп ­ ¦¬ЁвҐ «оЎго Є­®ЇЄг.');
   readln;
      while  y1<>'y' do
begin
  1:writeln('‚ўҐ¤ЁвҐ  , b Ё б зҐаҐ§ Їа®ЎҐ« Ё ­ ¦¬ЁвҐ Є­®ЇЄг Enter.');
   read(a,b,c);
   d:= (b*b)-(4*a*c);
   if (d=0) then
      begin
      Writeln('„ЁбЄаЁ¬Ё­ ­в а ўҐ­ ­г«о   §­ зЁв ўлзЁб«Ґ­Ёп Ї®©¤гв Ї® ¤агЈ®© д®а¬г«Ґ.');
      x:=((-1)*(b/2*a));

      Writeln('X=', X:6:2);

      goto io;
 
    end;
   if (d<0) then
      begin
      writeln('„ЁбЄаЁ¬Ё­ ­в ¬Ґ­миҐ ­г«п. “а®ў­Ґ­ЁҐ ­Ґ Ё¬ҐҐв аҐиҐ­Ё©. Ќ ¦¬ЁвҐ «оЎго Є­®ЇЄг, зв®Ўл ­ з вм б­ з « .');
      readln;
      readln;
      goto 1;
    end;
   Writeln('„ЁбЄаЁ¬Ё­ ­в а ўҐа', d:6:2,'Ќ ¦¬ЁвҐ Єг¤ -­Ёвм, зв®Ўл Їа®¤®«¦Ёвм.');
   readln;
   x:= (b*(-1)+sqrt(d))/(a*2);
   y:= (b*(-1)-sqrt(d))/(a*2);
   Writeln('X1=', x:6:2);
   writeln('X2=', y:6:2);
   io:writeln('“а ў­Ґ­ЁҐ аҐиҐ­®! ‚л室? (Y/N)');  read (y1);

   end;
end.