valla süper bi algoritma olmuş algoritmanın sonundaki cümleye aynen katılıyorum askerde ezecekler zamanında gidin derim bende herkese hele bide benim gibi bir yazıcıya düşerseniz daha da kötü
uses crt;
var
asker;variant;
begin
writeln("askerliği yaptınız mı?")
realn(asker);
if asker=evet then
writeln("askerlik yeni başlıyor");
else
writeln("askerde ezecekler zamanında git zamanında gel");
end.
algoritma sınavındaydım büğün
pascaldan şu işi bir iyi ögrensem bende gitcem