Program a6;
{Adaev Nikita}
Uses crt;
Var input, output:text; x1, x2, dx, y1, y2, dy, z, y, x:real; n, i:integer;
begin
Clrscr;
assign(input, 'C:\6.in');
reset(input);
readln(input, x1, x2, dx, y1, y2, dy);
assign(output, 'C:\6.out');
rewrite(output);
writeln(output, 'x1=', x1:1:0, ' x2=', x2:1:0, ' dx=', dx:4:2, ' y1=', y1:1:0, ' y2=', y2:3:1, ' dy=', dy:3:1);
write(output, #218, #196, #196, #196, #196, #196, #196, #194, #196, #196, #196, #196, #196, #196, #194);
writeln(output, #196, #196, #196, #196, #196, #196, #196, #196, #196, #191);
writeln(output, #179, 'X':4, ' ', #179, 'Y':4, ' ', #179, 'Z':5, ' ', #179);
write(output, #195, #196, #196, #196, #196, #196, #196, #197, #196, #196, #196, #196, #196, #196, #197);
writeln(output, #196, #196, #196, #196, #196, #196, #196, #196, #196, #180);
n:=trunc((x2-x1)/dx+1E-10)+1;
x:=x1;
FOR i:=1 to n do
begin
y:=y1;
while y<=y2+1E-10 do
begin
z:=x*y-exp(abs(x+y));
writeln(output, #179, x:5:2, ' ', #179, y:5:2, ' ', #179, z:8:3, ' ', #179);
y:=y + dy;
end;
x:=x + dx;
end;
write(output, #192, #196, #196, #196, #196, #196, #196, #193, #196, #196, #196, #196, #196, #196, #193);
writeln(output, #196, #196, #196, #196, #196, #196, #196, #196, #196, #217);
close(output);
end.