Помогите пожалуйста
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=-5
2) X=4; Y=5
Program SORTING; var X, Y, С : real; begin
readln(X, Y) ; if X>Y then begin С : =X; X:=Y; Y:=C end; write(X,Y) end.
Выполнить программу для:
1) X=42
2) X=23
var x, a, b, c: integer;
begin
readln(x);
a:= 100; b:= 90;
c:= x mod 2;
if c = 0 then a:= a + 10
else b:= b - 10;
writeln(a);
writeln(b);
end.