Merhaba,
Alttaki seçim için verilen case of 'u if ile değiştirmek istiyorum ama olmuyor yardım edebilecek var mı ? Maalesef hiçbir kaynakda bulamadım if ile. Dediğim kısımı kırmızı ile gösterdim.

USES CRT;
label dongu;
VAR
sayi1,sayi2,toplama,carpma:integer;
secim:char;
begin
dongu:
clrscr;
writeln('--------------- MENU ---------------');
writeln('[+] --> GIRILEN SAYILARIN TOPLAMI');
writeln('[x] --> GIRILEN SAYILARIN CARPIMI');
writeln('------------------------------------');
write('Lutfen Birinci Sayiyi Giriniz : ');readln(sayi1);
write('Lutfen Ikinci Sayiyi Giriniz  : ');readln(sayi2);
write('Lutfen Bir Secim Yapiniz      : '); readln(secim);
case secim of
'+' :
  begin
toplama :=sayi1+sayi2 ;
writeln('Iki Sayini Toplami   : ',toplama);
readln; goto dongu;
  end;
'x','X','*' :
  begin
    carpma :=sayi1*sayi2;
writeln('Iki Sayini Carpimi   : ',carpma );
readln; goto dongu;
  end;
ELSE BEGIN
 writeln('YANLIS TUSLAMA. PROGRAM KAPANIYOR...'); delay(2000); exit;
  END;

end;///case sonu

  READLN;
end.

case secim of
'+' :
begin
toplama :=sayi1+sayi2 ;
writeln('Iki Sayini Toplami : ',toplama);
readln; goto dongu;
end;
'x','X','*' :
begin
carpma :=sayi1*sayi2;
writeln('Iki Sayini Carpimi : ',carpma );
readln; goto dongu;
end;
ELSE BEGIN
writeln('YANLIS TUSLAMA. PROGRAM KAPANIYOR...'); delay(2000); exit;
END;


end;///case sonu

Bu seçimi if ile yapmam lazım.