net para hesaplama ;)

uses crt;
label devam;
var
a,sec,sat,sut,d:integer;
s1,s2,af:longint;
kdv,kdvf,kdvt,t,ck,b,c:real;
ad,m,v:string;
begin textbackground(green);clrscr;
devam:
textattr:=1;gotoxy(23,2);writeln('**************** ************');
textattr:=2;gotoxy(23,4);writeln('* 1 ->yazi efekti; *');
textattr:=3;gotoxy(23,6);writeln('* 2 ->rn hesap; *');
textattr:=4;gotoxy(23,;writeln('* 3 ->toplama; *');
textattr:=5;gotoxy(23,10);writeln('* 4 ->cikarma; *');
textattr:=6;gotoxy(23,12);writeln('* 5 ->b”lme; *');
textattr:=7;gotoxy(23,14);writeln('* 6 ->carpma; *');
textattr:=8;gotoxy(23,16);writeln('*************** *************');
textattr:=9;gotoxy(23,18);write('seciminiz...:');r eadln(sec);clrscr;
if sec=1 then begin
textattr:=0;gotoxy(23,18);write('mesajinizi girin...:');readln(m);
for a:=1 to 70 do begin sat:=1;
clrscr;gotoxy(a,sat);write(m);delay(100);end;
for a:=70 downto 1 do begin sat:=1;
clrscr;gotoxy(a,sat);write(m);delay(100);end;
for a:=1 to 33 do begin sat:=1;
clrscr;gotoxy(a,sat);write(m);delay(100);end;
for a:=1 to 25 do begin sut:=33;
clrscr;gotoxy(sut,a);write(m);delay(100);end;
randomize;
for a:=1 to 300 do begin
gotoxy(random(80)+1,random(50)+1);write('.');delay (50);end;end;
if sec=2 then begin
gotoxy(23,18);write('rn adini girin...:');readln(ad);
gotoxy(23,19);write('alis fiyatini girin...:');readln(af);
gotoxy(23,20);write('kdv oranini girin...:');readln(kdv);
gotoxy(23,21);writeln('[kdv orani virgll sayidir ”r:0.10]');readln(v);
kdvt:=af*kdv;kdvf:=af+kdvt;
gotoxy(23,22);writeln('kdv tutari...:',kdvt:3:2);
gotoxy(23,23);writeln('kdvli satis fiyati...',kdvf:3:2);end;
if sec=3 then begin
gotoxy(23,18);write('1.sayi...:');readln(s1);
gotoxy(23,19);write('2.sayi...:');readln(s2);clrsc r;
t:=s1+s2;gotoxy(23,20);writeln('sonuc...:',t:3:2); end;
if sec=4 then begin
gotoxy(23,18);write('1.sayi...:');readln(s1);
gotoxy(23,19);write('2.sayi...:');readln(s2);clrsc r;
ck:=s1-s2;gotoxy(23,20);writeln('sonuc...:',ck:3:2);end;
if sec=5 then begin
gotoxy(23,18);write('1.sayi...:');readln(s1);
gotoxy(23,19);write('2.sayi...:');readln(s2);clrsc r;
b:=s1/s2;gotoxy(23,20);writeln('sonuc...:',b:3:2);end;
if sec=6 then begin
gotoxy(23,18);write('1.sayi...:');readln(s1);
gotoxy(23,19);write('2.sayi...:');readln(s2);clrsc r;
c:=s1*s2;gotoxy(23,20);writeln('sonuc...:',c:3:2); end;readln;clrscr;
gotoxy(23,21);write('devam etmek icin 1 cikis icin 2..:');readln(d);
if d=2 then exit;
if d=1 then goto devam;
readln;
end.