program zad2_L3;

uses CRT;

var i, liczba, wynik :INTEGER;
odp :char;

begin
write ('Program oblicza silnie podanej liczby n [max.10].');
writeln;
write ('Podaj liczbe: '); readln (liczba);

wynik:=1;

for i:=1 to liczba do
wynik:= i*wynik;
writeln ('Silnia liczby  ', liczba, ' to: ', wynik);
write ('Zakonczyc program?? [Y/N]'); readln (odp);
odp:= readkey;
if (odp='Y') or (odp='y');
then halt;
readln;
end.