Таблица значений с данными

[AlexBrink]

Привет всем,сегодня на информатике дали лабу,вертел,крутил её и всё равно не понял как составить код,с паскалем знаком 1 месяц,особо он мне не нужен,т.к. учусь на инженера.
Так вот,прошу вашей помощи в составлении кода на языке Pascal.
http://s019.radikal.ru/i623/1210/4a/2d6adb2393d5.jpg

[AlexBrink]

бамп чтоле

[badnum23]

бамп чтоле

Ракуем, сегодня мы с тобой ракуем.

program Project2;

uses
  math;

var
  a,h,xn,xk,an,ak,ha,hx,w,x: Real;
  m,n: Integer;

function max(x,y,z: Real): Real;
var
  a: array [1..3] of Real;
  k,i: Integer;
begin
  a[1] := x; a[2] := y; a[3] := z;
  k := 1;
  for i := 2 to 3 do
    if a[i] > a[k] then k := i;
  max := a[k];
end;

begin
  an := 0.3;
  ak := 0.7;

  xn := 0.1;
  xk := 0.2;

  m := 3;
  n := 2;

  ha := (ak - an) / m;
  hx := (xk - xn) / n;

  a := an;

  writeLn('hx = ', hx:5:5, ' ha = ', ha:5:5);

  while a <= ak do
  begin
    x := xn;
    while x <= xk do
    begin
      w := max(3*arctan(a*x), sqrt(a*a + x*x), arccos(a+x/10));
      writeln('a = ', a:5:5, ' x = ', x:5:5, ' w = ', w:5:5);
      x := x + hx;
    end;

    a := a + ha;
  end;

  readln;

end.

[AlexBrink]

Сообщение от badnum23

Ракуем, сегодня мы с тобой ракуем.

program Project2;

uses
  math;

var
  a,h,xn,xk,an,ak,ha,hx,w,x: Real;
  m,n: Integer;

function max(x,y,z: Real): Real;
var
  a: array [1..3] of Real;
  k,i: Integer;
begin
  a[1] := x; a[2] := y; a[3] := z;
  k := 1;
  for i := 2 to 3 do
    if a[i] > a[k] then k := i;
  max := a[k];
end;

begin
  an := 0.3;
  ak := 0.7;

  xn := 0.1;
  xk := 0.2;

  m := 3;
  n := 2;

  ha := (ak - an) / m;
  hx := (xk - xn) / n;

  a := an;

  writeLn('hx = ', hx:5:5, ' ha = ', ha:5:5);

  while a <= ak do
  begin
    x := xn;
    while x <= xk do
    begin
      w := max(3*arctan(a*x), sqrt(a*a + x*x), arccos(a+x/10));
      writeln('a = ', a:5:5, ' x = ', x:5:5, ' w = ', w:5:5);
      x := x + hx;
    end;

    a := a + ha;
  end;

  readln;

end.

Спасибо братишка

[AlexBrink]

поцоны ещё помощь нужна,выручайте.