writeln('5) CIKIS');
readln(giris);
if giris=1 then
begin
clrscr;
writeln('Suan hesab?n?zda bulunan toplam para miktar?');
writeln('bakiye=150');
readln;
end;
if giris=2 then
begin
clrscr;
writeln('bakiyeniz:' ,bakiye2);
writeln('Hesab?n?zdan cekmek istediginiz miktar');
readln(cek1);
if cek1 >bakiye then
begin
writeln('cektiginiz tutar bakiyen?zdek? tutardan fazla');
writeln('bakiyen?zde para yoktur');
readln;
end
else
begin
bakiye:=bakiye-cek1;
writeln('bakiyen?zde kalan para miktar?:' ,bakiye2);
readln;
end;
end;
if giris=3 then
begin
clrscr;
writeln('suank? bak?ye:' ,bakiye2);
writeln('eklemek istediginiz bak?ye');
readln(para);
bakiye:=bakiye+para;
writeln('suanki bakiye:' ,bakiye2);
readln;
end;
if giris=4 then
begin
clrscr;
writeln('1.dolar');
writeln('2.Euro');
readln(dov);
if dov=1 then
begin
writeln('Yat?rmak ˜stedi§iniz Dolar Miktar?');
readln(para1);
para1:=para1*dolar;
bakiye:=para1+bakiye;
writeln(para12, '=Kadar YTL Eklenm?Ÿtir');
writeln('toplam bakiye= ',bakiye2);
readln;
end;
if dov=2 then
begin
writeln('Yat?rmak ˜stedi§iniz Euro Miktar?');
readln(para1);
para1:=para1*euro;
bakiye:=para1+bakiye;
writeln('Toplam Bakiye:', bakiye2);
readln;
end;
end;
until giris=5;
readln;
end.