programlama dillerinin hepsinde aynı hocam yapı
sadece syntax dediğimiz yazımı pascal dili kurallarına göre yazacaksınız
...
case secim of ---> bu kısmı silin

if (secim = '+') then {
toplama :=sayi1+sayi2 ;
writeln('Iki Sayini Toplami : ',toplama);
readln; goto dongu;
}
else if ((secim = 'x') or (secim = 'X') or (secim ='*') then {
carpma :=sayi1*sayi2;
writeln('Iki Sayini Carpimi : ',carpma );
readln; goto dongu;
end;
ELSE BEGIN
writeln('YANLIS TUSLAMA. PROGRAM KAPANIYOR...'); delay(2000); exit;
}