[<SANTA>]

Program a;
uses crt;
var x,P1,P2,P3:real;
n:integer;
begin
x:=0;
n:=0;
repeat
P1:=x;
P2:=(3*x*x-1)/2;
p3:=(5*x*x-3*x)/2;
writeLn('P1=',P1);
writeLn('P2=',P2);
writeLn('P3=',P3);
x:=x+0.05;
n:=n+1;
x<=20;
if n mod20=0 then
repeat;
until keypressed;
end.
что тут не так в проге?мне на завтра надо здать помогите пожалуйста.Спасибо.

http://forum.vn.ua/showthread.php?p=2080380#post2080380