Пожалуйста посчитайте пожалуйста1.Выполнить программу для:1) A=80, t1=2, t2=3;2) A=60, t1=2, t2=5;Var A,t,t2,v1,v2: Real; begin writeLn('Введите A, t1, t2'); readLn(A, t1, t2);v1:=20/t1; v2:=(A-20)/t2; if v1>v2 then write (`До обеда скорость выше')else write ('После обеда скорость выше');END.2.Выполнить программу для:1) X=4; Y=-52) X=4; Y=5Program SORTING; var X, Y, С : real; beginreadln(X, Y) ; if X>Y then begin С : =X; X:=Y; Y:=C end; write(X,Y) end.Выполнить программу для:1) X=422) X=23var x, a, b, c: integer;beginreadln(x);a:= 100; b:= 90;c:= x mod 2;if c = 0 then a:= a + 10else b:= b - 10;writeln(a);writeln(b);end.