Табулирование значений функции

Программа построения таблицы значений функции. Надо ввести начальную точку, конечную и шаг табулирования. Функцию можно поменять на свою. Часто такую задачу дают на первой лабораторной работе по программированию.

Program TablFunc1;
uses Crt;
var
 a,b,s:real;
 i:byte;
 function f(x:real):real;
 begin
 f:=4*exp(x/4)*sin(8*x)
 end;
 {таблица значений функции от a до b с шагом s}
 procedure Tabl(a,b,s:real);
 var x:real;i:byte;
 begin
 x:=a;
 repeat
 i:=1;
 repeat
 writeln('x=',x:5:2,' y=',f(x):5:2);
 x:=x+s;i:=i+1;
 until (i>24) or (x>b);
 readln; ClrScr;
 until x>b
 end;
Begin
 ClrScr; {Очистка экрана - процедура из модуля Crt}
 write('a=');readln(a);
 write('b=');readln(b);
 write('s=');readln(s);
 ClrScr;
 Tabl(a,b,s);
End.