9.5, Wartość funkcji liniowej

uses crt;
var
        a, b:real;
        xp, xk:integer;
begin
        clrscr;
        writeln('Program wylicza wartosc funkcji liniowej o postaci ax+b=0');
        writeln('dla kolejnych x z zakresu podanego przez uzytkownika');
        writeln;
        write('Podaj a (moze to byc ulamek): ');
        readln(a);
        write('Podaj b (moze to byc ulamek): ');
        readln(b);
        write('Podaj poczatek zakresu x: ');
        readln(xp);
        write('Podaj koniec zakresu x: ');
        readln(xk);
        writeln;
        repeat
                writeln(a:2:2, ' * ', xp, ' + ', b:2:2 ,' = ', a*xp+b:2:2);
                xp:=xp+1;
        until xp >= xk;
        readln;
end.