program alan_hesaplari;
uses crt;
var
alan,a,b,c:byte;
alan3:real;
d:char;
begin repeat
clrscr; textcolor(4);
writeln('KARE ALANI İÇİN 1');
writeln('DİKDÖRGEN ALANI İÇİN 2');
writeln('ÜÇGEN HESABI İÇİN 3');
writeln('TUŞLARINA BASINIZ');
writeln('SEÇİMİNİZ ');
readln(a);
case a of
1: begin clrscr;
gotoxy(2,4);
writeln(' KARE ALANI HESAPLAYACAKSINIZ');
write(' KENAR UZUNLUĞUNU GİRİNİZ: ');
readln(b);
alan:=b*b;
write(' KAREN�N ALANI:',alan);
end;
2: begin clrscr; gotoxy(2,4);
writeln(' DİKDÖRTGEN ALANI HESAPLAYACAKSINIZ');
write(' UZUN KENARI KENARI GİRİNİZ: ');
readln(b);
write(' KISA KENARI GİRİNİZ: ');
readln(c);
alan:=b*c;
write(' DİKDÖRTGENİN ALANI: ', alan);
end;
3: begin clrscr; gotoxy(2,4);
writeln(' ÜÇGEN ALANI HESAPLAYACAKSINIZ');
write(' TABAN UZUNLUĞUNU GİRİNİZ: ');
readln(b);
write(' YÜKSEKLİĞİ GİRİNİZ ');
readln(c);
alan3:=b*c/2;
write(' ÜÇGENİN ALANI: ', alan3:4:1);
end;
end;
gotoxy(3,10);
write('BAŞA DÖNMEK İSTİYOR MUSUNUZ ? (e/h)');
readln(d);
until d='h';
end.