Pascal a kompilovanie

program Vypocty;
uses crt;
var
        r,o,s : real;
        a,b,c : real;
begin
        clrscr;
        writeln('Program na výpočet obvodu a obsahu kružnice.');
        write('Zadajte polomer kruznice: ');
        readln(r);
        o := 2 * pi * r;
        s := pi * r * r;
        writeln('Obvod kružnice: ', o:1:3);
        writeln('Obsah kružnice: ', s:1:3);
        begin
                writeln('Program na výpočet dvoch čísiel.');
                write('Zadajte prvé číslo: ');
                read(a);
                write('Zadajte druhé číslo: ');
                read(b);
                c := a + b;
                writeln('Výsledok: ', c:1:1);
        end;
        begin
                writeln('Program na súčin dvoch čísiel.');
                write('Zadajte prvé číslo: ');
                read(a);
                write('Zadajte druhé číslo: ');
                read(b);
                c := a * b;
                writeln('Výsledok: ', c:1:1);
        end;
end.