tengo el siguiente codigo, y necesito que me grafique los pares x,y que van saliendo:
program Grafico;
uses
wincrt;
var
x,c:integer;
y:integer;
resp:char;
begin
writeln('');
writeln('INGRESE EL VALOR MAXIMO DE X A GRAFICAR');
writeln('RECUERDE QUE EL VALOR INICIAL DE X ES MAYOR O IGUAL A 5');
writeln('Y MENOR O IGUAL A 100');
readln(x);
c:=5;
y:=0;
if x<5 then
begin
writeln('Recuerde el valor debe ser mayor o igual a 5');
writeln('');
writeln('');
end
else if x>100 then
begin
writeln('Recuerde el valor debe ser menor o igual a 100');
writeln('');
writeln('');
end
else
begin
while c<=x do
begin
y:=2*sqr©+3*c-5;
writeln(c:3,y:15);
c:=c+1;
end;
end;
end.
