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 - вторая
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.