Помогите исправить ошибки. Для заданной функции вывести на экран значение функции которые лежат в пределах от -1 до 1 и соответствующие им значения аргумента на отрезке d∈[a;5] с шагом h=0,2
ЧТО не правильно ???
Program Tab;
var r,d,h,a:real;
const h=0,2;
begin
repeat
Writeln ('vasdas');
readln (a,h);
until (a<5)and (a>=0);
d:=a;
while d<=5 do
begin
r:=sqr(d/3)*d/3-cos((sqr(d))/3,7)-sqrt(d-1,2);
if(r>=-1) and(r<=1) then
Writeln ('pri d=', d:6:2, ' r=', r:6:2);
d:=d+h;
end;
end.

Program Tab;var r,d,a:real;const h=0.2;beginrepeatWriteln ('vasdas');readln (a);until (a<5)and (a>=0);d:=a;while d<=5 do beginr:=sqr(d/3)*d/3-cos((sqr(d))/3.7)-sqrt(d-1.2);if(r>=-1) and(r<=1) thenWriteln ('pri d=', d:6:2, ' r=', r:6:2);d:=d+h;end;end.Как-то так. Не ставь запятые для дробной части - используются точки, это важно