{ JEDNODUCHA_ROVNICA.PAS                                            }
{ Program riesi jednoduchu rovnicu.                                 }
{                                                                   }
{ Autor: Neznami                                                    }
{ Datum:25.11.2008                             http://www.trsek.com }

program Riesenie_rovnic;
uses CRT;
VAR x:real;
    a:real;
    b:real;
    c:real;
    y:real;
begin
 clrscr;
 Writeln('Program na riesenie rovnice x=((a*a)-b)/c');
 delay(500);

 writeln('zadaj a');
 readln(a);

 writeln('zadaj b');
 readln(b);

 writeln('zadaj c');
 readln(c);

 x:=((a*a)-b)/c;
 writeln('neznama x=');
 writeln(x);

 readln;
end.