4 и 5 пжжджжжжжжжжжжжжжжж​

1)

var x,y,h:real;

Begin

h:=2;

x:=1;

repeat

y:=5*x-2;

writeln(x:5,y:5);

x:=x+h;

until x>10;

End.

2) c:=72