program Esimene_ylesanne; uses crt; var x,y,z,samm:real; count:byte; begin clrscr; writeln('** Proge koostatud 30.11.1998, autor Rauno Tuul,LDS-11.**'); writeln('** Esimene ylesanne : lahendada vorrand. **'); writeln; write('Palun anna X : '); readln(x); write('Palun anna samm : '); readln(samm); writeln; writeln(' samm X Y '); writeln('********************************'); for count:=1 to 10 do begin x:=x+samm; if (x<5) then begin writeln(count:4, x:12:1,'y puudub':14); end else begin y:=(sqrt(x*x+x-20)/(x*x+x-20)); writeln(count:4,x:12:1,y:12:2); end; end; writeln('********************************'); writeln; writeln('All done, bye bye!'); writeln('Press Enter.'); readln; end.