PROGRAM KURVE(OUTPUT); CONST PI = 3.1415926535; VAR X,Y: REAL; BEGIN X := -3*PI; REPEAT IF X=0 THEN Y := 1 ELSE Y := SIN(X)/X; WRITELN("*":ROUND(40*Y)+20); X := X + PI/10 UNTIL X>3*PI END.