[chainik]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses Math;

var
A,B,C: extended;
begin
writeln('┬тхфшЄх шёїюфэ√х фрээ√х');
write('A: '); readln(A);
write('B: '); readln(B);
write('C: '); readln(C);

if (B*B-4*A*C) < 0 then writeln('═хЄ ъюЁэхщ')
else 
   begin
   writeln('X1: ',(-B+sqrt(B*B-4*A*C))/2/A);
   writeln('X2: ',(-B-sqrt(B*B-4*A*C))/2/A);
   end;


readln;
end.

И это все. Можно и самому подумать....
Причем здесь цикл с предусловием- спроси у своего препода.....