Задача (паскаль)

[Рина05]

[IMG][/IMG]

Ребят, помогите пожалуйста составить программу на паскале, по данным с картинки!

Программа должна быть похожа на эту:
program grafic1;
║uses crt;
║var x, y, a, b, h : real;
║begin
║ clrscr;
║ writeln( ' Vvod a ');
║ readln(a);
║ writeln( ' Vvod b ');
║ readln(b);
║ writeln( ' Vvod h ');
║ readln(h);
║ x:=a;
║ writeln( 'tablica ');
║ writeln('╔═════╦═══════╗');
║ writeln('║ x ║ y ║');
║ writeln('║═════════════║');
║ repeat
║ y:=cos(sqr(x));
║ writeln('║', x:5:2,'║', y:4:2);
║ writeln('║═════║═══════║');
║ x:=x+h;
║ until x > b;
║ writeln('╚═════╩═══════╝');
║ readln;
║end.