написать в Паскале
111. Мышонок Джерри улепетывает к своей норке по прямой. Успеет ли кот Том догнать Джерри, если Джерри находится как раз на полпути между Томом и норкой?
118. Даны коэффициенты квадратного уравнения a,b,c. Найти действительные корни этого уравнения.
122. Можно ли прямоугольный пакет размерами A,B,C положить в чемодан размерами X,Y,Z?
123.Составить программу вычисления значения функций:

а)1 при x>= 0;
y=0 при  x<0
б)x^2 при x>0
y=-x при x<=0
в)1 при x>=1
y=0 при -1<x<1
-1 при x<=-1
u)x-1 при x>1
y=0 при -1<=x<=1
x+1 при x<-1 

здесь сможете что-нибудь решить?

//102.Известна заработная плата сотрудника. //Вычислить величину подоходного налога.Program NDS;var S,Snal,Sv: real;BeginWriteln ('Для определения размера НДС введите заработную плату');Readln (S);Sv:=S*0.13;Snal:=S-Sv;Writeln ('Размер удерженного НДС равен ',Sv);Writeln ('сумма к выдаче ',Snal);End.

//108.Из одной точки к прямой проведены перпендикуляр и наклонная. //По длинам отрезков определить, который из них перпендикуляр.Program Linii;var AB,AC: real;BeginWriteln ('Введите длину отрезка АВ');Readln (AB);Writeln ('Введите длину отрезка AC');Readln (AC);if AB>AC then Writeln ('АС - перпендикуляр, АВ - наклонная')else begin if AB<AC then Writeln ('АВ - перпендикуляр, АС - наклонная') else Writeln ('Линии совпадают') end;End.

благодарю

Всегда пожалуйста

118. Даны коэффициенты квадратного уравнения a,b,c. Найти действительные корни этого уравнения. program Kv_ur; var a,b,c,x1,x2,D: real; begin Writeln ('Для решения квадратного уравнения'); Writeln ('Введите коэффициент a'); Readln (a); Writeln ('Введите коэффициент b'); Readln (b); Writeln ('Введите коэффициент c'); Readln (c); D:=Sqr(b)-4*a*c; If d<0 then Writeln ('Так как дискрименант ',D,'<0 уравнение не имеет решений');     begin       If d=0 then               begin                   x1:=-b/(2*a);                   Writeln ('Так как дискриминант равен 0 уравнение имеет один корень:');                   Writeln(x1);               end;              If d>0 then               begin                   x1:=(-b- Sqrt(Sqr(b)-4*a*c))/2*a;                   x2:=(-b+ Sqrt(Sqr(b)-4*a*c))/2*a;                   Writeln ('Так как дискриминант ',D,'>0 уравнение имеет два корня:');                   Writeln ('x1=', x1, ' и x2=', x2);               end;  end; end.   122. Можно ли прямоугольный пакет размерами A,B,C положить в чемодан размерами X,Y,Z?   program chemodan; var a,b,c,x,y,z: real; begin Writeln ('введите размеры пакета'); Writeln ('Введите длину a'); Readln (a); Writeln ('Введите ширину b'); Readln (b); Writeln ('Введите высоту c'); Readln (c); Writeln ('введите размеры чемодана'); Writeln ('Введите длину х'); Readln (x); Writeln ('Введите ширину y'); Readln (y); Writeln ('Введите высоту z'); Readln (z);   If (a<=x) and (b<=y) and (c<=z) then Writeln ('пакет можно положить') else Writeln ('пакет положить нельзя'); End.