Каким образом можно вывести на экран вещественное число в формате с фиксированной запятой?

Скажем есть какая - то переменная n вещественного типа со значением 0.1234567. чтобы вывести её с точностью до 3 знаков после запятой, нужно написать: writeln( n: 0: 3  ), где 0 означает бесконечность знаков перед запятой, 3 - 3 знака после запятой. будет выведено 0.123

Uses graph; var xc,yc,m,x1,y1: integer;     x,y: real; begin xc: =0; initgraph(xc,yc,''); xc: =getmaxx div 2; yc: =getmaxy div 2; m: =yc div 2; line(5,yc,getmaxx-5,yc); line(xc-m,yc+3,xc-m,yc-3); outtextxy(xc-m,yc+10,'-1'); outtextxy(xc+5,yc+10,'0'); line(xc+m,yc+3,xc+m,yc-3); outtextxy(xc+m,yc+10,'1'); line(xc,5,xc,getmaxy-5); line(xc-3,yc-m,xc+3,yc-m); outtextxy(xc-10,yc-m,'1'); line(xc-3,yc+m,xc+3,yc+m); outtextxy(xc-15,yc+m,'-1'); setcolor(12); line(xc-m,yc,xc,yc-m); line(xc,yc-m,xc+m,yc); line(xc+m,yc,xc,yc+m); line(xc,yc+m,xc-m,yc); x: =-4; while x< =4 do   begin   y: =0.52*x+0.18;   x1: =xc+round(x*m);   y1: =yc-round(y*m);   putpixel(x1,y1,14);   x: =x+0.01;   end; readln end.

1.  получение слова > > > 2.  получение количества букв в слове > > > 3.  проверка каждой последующей буквы(начиная с 1-й включительно) > > [если подходящая буква]> 4.1  вывод позиции > > [если нет]> 4.2 возврат к пункту 3. пример: вход: азбука требуемая буква, для нахождения ее положения: "у" букв в слове: 6 проверка: а(не подходит) з(не подходит) б(не подходит) у(подходит! позиция: 4) к(не подходит) а(не подходит) вывод: 4 наваял готовую блок-схему: