Можете У меня осталось 10 минут!​

1.Компьютер - незаменимая вещь в жизни студента. 
2.Мама обрадовала Петю: он совсем не ожидал получить компьютер на день рождения.
3. Учительница сказала, что сегодня мы будем работать на компьютере. 
4. Паскаль- самый сложный язык в программировании на компьютере. 
5. Вова обожал играть в видеоигры на компьютере. 
6. "Ребята, сегодня наш класс пойдёт смотреть в технический музей на первые компьютеры"- сказала учительница.
7. Бабушка удивилась, что Катенька так быстро печатает на компьютере. 
8. Настя была опечалена: из-за сломанного usb-порта компьютер не воспринимал съемный носитель. 
9. Первые компьютеры были очень большими. 
10. Милана очень хотела новый компьютер, но папа посчитал нужным подарить ей книги. 

Program kv;Var a,b,c,x1,x2,x,D: Real;  BEGIN    write ('input a b c =>');    Readln (a,b,c);    if a  = 0 then    if b = 0 then    Begin    Writeln ('The equation is not compatible');    Readln;     Halt
    End else    Begin    x :=-c / b;    Writeln ('Root x=' ,x:8:2);    Readln;    Halt    End else    Begin    D :=Sqr (b) - 4 * a * c;    if D<0 then    Begin    Writeln ('The equation has no real roots'); 
readln;    Halt    End else    Begin    x:=-b /( 2 * a );    if D = 0 then    Begin      Writeln ('Roots are equal x1=x2=', x:8:2);      Readln;        Halt      End;    x2:= Sqrt (D)/(2*a);    x1:= x2 + x;    x2:= x - x2;    Writeln('Roots: x1=',x1:8:2, ' x2= ',x2:8:2)    EndEnd;   Readln;End.