Помогите написать программу по Turbo Pascal

Question

Построение таблиц функций 
 F(x) A B M 
sin(x*x) p/6 2p/3 10 
Вот все что я написал, пожалуйста напишите что дописать, исправить! 
Program Pra9; 
var f,p,x,h,a,b,m:real; 
begin 
p:=3.14.159265 
x:=p/6.0; 
b:=2*p/3; 
m:=10; 
h:=(b-x)/m; 
writeln(h); 
readln(h); 
 while a

Зоя Крупина · Accepted Answer

Почитайте про циклы. for напрямую тут не подойдет, а вот while - запросто.

Ведьмо4Ка "ti Amo" · Answer

uses crt; 
var f,p,x,h,a,b,m:real; 
begin 
clrscr; 
x:=pi/6.0; 
b:=2*pi/3; 
m:=10; 
h:=(b-x)/m; 
writeln(h:5:2); 
while x<=b do begin 
f:=sin(x*x); 
writeln (x:5:2, f:7:2); 
x:=x+h end; 
readln; 
end.