График в Паскале

[Андрей77777]

Помогите сделать задачу

Вывести таблицу значений и построить график функции:Безымянный.jpg

[Андрей77777]

y=sqrt(1-sqr(x))

[Stilet]

Вывести таблицу значений

var x:real;
begin
 x:=1;while x<10 do begin writeln(x:2:5,sqrt(1-x*x):2:5); x:=x+0.1;end; readln;
end.