первые 10 натуральных чисел, которые кратны 8, начиная от 1000
Program pr1;
var
x:byte; // Число
y:real; // Функци
Begin
x:=17;
writeln('y= ',SQRT(x+8));
End.
Дальше просто замени другими значениями x