program kvadr;

program kvadr;
{Co kdyz budes nekde v pustine a budes nutne potrebovat spocitat kvadratickou rovnici?}

var a,b,c,d,x1,x2,re,im:real;
begin
write('zadej a,b,c:');
readln(a,b,c);
if(a=0) then
if (b=0) then
if(c=0) then writeln('Rovnice ma reseni pro jakekoliv x')
else {pro c#0}
writeln('Rovnice nema reseni pro zadne x')
else {pro b#0}

begin
writeln('Reseni linearni rovnice:');
writeln('X=',-c/b:6:2);
end else
begin
d:=b*b-4*a*c;
if(d=0)then writeln('Jeden dvojnasobny koren x12=',-b/(2*a)) else
if(d>0)then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('Reseni ma 2 realne koreny');
writeln('X1=',x1);
writeln('X2=',x2);
end else
begin
writeln('Reseni ma 2 komplexne sdruzene koreny');
re:=-b/(2*a);
im:=sqrt(-d)/(2*a);

writeln('X1=',re:6:3,'+',im:6:3,'i');
writeln('X2=',re:6:3,'-',im:6:3,'i');
{ writeln('Re=',re);
writeln('Im=',im);
}
end
end
end.

program zaokrouh;
var c:real;
i,j:integer;
begin
c:=3.41;
writeln('c=',c:5:3);
writeln('frac(',c:5:3,')=',frac(c):5:3);
writeln('int(',c:5:3,')=',int(c):5:3);
writeln('round(',c:5:3,')=',round(c):3);
{ j:=c; chyba!!}
j:=round(c)+3;
writeln('j=',i);
end.