Помогите с програмой в паскале

Помогите с програмой в паскале
Задача такая: Составить программу для вычислений значений функции двух переменных z(x,y) при заданных величинах интервала и шага переменных x и y. В предложенной задаче использовать вложенные циклы.
Условие:
z=a*exp(-sqrt(x*y))*(x+y)
для x интервал [1;2], шаг 0.1
для y интервал [1;5], шаг 1
значение a=2.5

Нужно сделать через For to do

Вот я так сделал через While do

uses CRT;
var x,y,z,a:real;
Begin
Clrscr;
a:=2.5;
x:=1;
While x<2 do
Begin
y:=1;
While y<5 do
Begin
z:=a*exp(-sqrt(x*y))*(x*y);
Writeln (x:8:3,y:8:3,z:8:3);
y:=y+1
end;
x:=x+0.1;
end;
Readln
end.

  • Можно красиво сделать!
    Для Y очевидно: for Y:=1 to 5 ...
    Для X: for X:=10 to 20 ...
    А в формуле вместо X используем X/10.0