Bài tập điều kiện 2

Bài tập: Viết ct tính '+' hoặc - hoặc '*' hoặc '/' của các số từ 1 đến n
GIẢI:
uses crt;
var
 phep: char;
 n,i,tong,hieu:integer;
 thuong,tich: real;

begin
clrscr;
 Write('Nhap n: ');
 Readln(n);
 Writeln('Chon phep toan (+, -, *, /): ');
 Readln(phep);
 tong := 0;
 tich := 1;
 hieu := 0;
 for i := 1 to n do
 begin
   case phep of

        '+':tong :=  tong + i;
        '-':hieu :=  hieu - i;
        '*':tich := tich * i;
        '/':thuong := thuong / i;
   end;
 end;
       if phep = '+' then
       writeln('tong cac so tu 1 den ',n,' la ',tong)
       else if  phep = '-' then
       writeln('hieu cac so tu 1 den ',n,' la ',hieu)
       else if phep = '*' then
       writeln('tich cac so  tu 1 den ',n,' la ',tich)
       else if phep = '/' then
       writeln('thuong cac so  tu 1 den ',n,' la ',thuong)
       else write('phep tinh ko hop le ');
readln;
end.