помогите пожалуйста! информатика 10 класс.

2.

var   x,y:real;

Begin

  write('Vvedite chislo x: ');  

readln(x);  

writeln('y1= ',power(x,8));  

writeln('y2= ',power(x,10));  

writeln('y3= ',power(x,15));  

writeln('y4= ',power(x,19));  

readln;

End.

3.

var

  a1,a2,b1,b2:integer; // a1,a2 - первая дробь, b1,b2 - 2-ая

Begin

  write('Vvedite pervuy drob: ');

  readln(a1,a2);

  write('Vvedite vtoryy drob: ');

  readln(b1,b2);

  writeln('Chislitel= ',a1+b1);

  writeln('Znamenatel= ',a2+b2);

  readln;

End.