Помогите с информатикой. Пожалуйста. 50 баллов))

1. var x,y:real; begin write('x = '); readln(x); if x>0   then begin y:=sin(x); writeln('y = ',y); end  else writeln('При x<0 функцию не вычисляем почему-то'); end. Пример: x = 1.8 y = 0.973847630878195 2. var t1,t2:integer; v1,v2:real; begin write('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 = 5 t2 = 4 v1 = 4  v2 = 2.5 Скорость до обеда была выше 3. var a,k1,k2,k3,k4:integer; begin write('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 В числе есть повторяющиеся цифры