Задание за 100 баллов!! Необходимо составить программы на языке Паскаль. Пожалуйста, помогите

1.var x,y:real;beginwrite('x = ');readln(x);if x>0  then begin y:=sin(x); writeln('y = ',y); end else writeln('При x<0 функцию не вычисляем почему-то');end.Пример:x = 1.8y = 0.9738476308781952.var t1,t2:integer; v1,v2:real;beginwrite('t1 = '); readln(t1);write('t2 = '); readln(t2);v1:=20/t1; v2:=10/t2;writeln('v1 = ',v1,'  v2 = ',v2);if v1 > v2 then writeln('Скорость до обеда была выше') else writeln('Скорость после обеда была выше');end.Пример:t1 = 5t2 = 4v1 = 4  v2 = 2.5Скорость до обеда была выше3.var a,k1,k2,k3,k4:integer;beginwrite('a = '); readln(a);k1:=a div 1000;k2:=a div 100 mod 10;k3:=a mod 100 div 10;k4:=a mod 10;if (k1<>k2)and(k1<>k3)and(k1<>k4)and(k2<>k3)and(k2<>k4)and(k3<>k4) then writeln('Все цифры числа различны') else writeln('В числе есть повторяющиеся цифры');end.Пример:a = 5135В числе есть повторяющиеся цифры