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

[Рина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.

[ByAlex]

Программа же простая!

[viron]

Не совсем понятно что надо сделать.

[ByAlex]

Пробуй так -

program Project9;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;
const
  pi=3.14;
var
  F,a,b,h,x:real;
function CheckInput():boolean;
var
  Check:boolean;
begin
  Check:=false;
  write('Vvedite a = ');
  read(a);
  write('Vvedite b = ');
  read(b);
  if a>b then
  begin
    writeln('Input error!!! (a > b)');
    CheckInput();
  end;
end;
begin
  h:=0.05;
  CheckInput();
  writeln;
  x:=a;
  writeln('Result:');
  writeln('|x     |F(x)  |');
  while x<=b do
  begin
    if (x>=0) and (x<0.25) then
      F:=tan(pi*x)
    else
    if (x>=0.25) and (x<1) then
      F:=(4*(1-x))/3
    else
    if (x>=1) and (x<=2) then
      F:=sqr(x)-x;
    writeln(x:2:2,'    ',F:2:2);
    x:=x+h;
  end;
  readln;
  readln;
end.