Turbo Pascal'da Klavyeden Girilen Sayıya Kadar Olan Sayıları Sayan Program

Merhaba arkadaşlar bundan sonra sizlere pascal programlama dili ile yapılmış örnekler verecegimi daha önce söylemiştim sıradaki örnegimiz pascal programlama'da klavyeden girilen sayıya kadar olan sayıları saymayı yapmayı saglayan program kodlarını paylaşacagım.Bu örnegimizde klavyeden deger girmeyi, il else yapısını  görecegiz. Yapamadıgınız yerleri sorularınızı yorum yapmayı unutmayınız.

var
sayac:integer;
kac:integer;
label etik; 
begin
write('Kaca kadar...:'); readln(kac);
sayac:=0;
etik:
sayac:=sayac+1;
writeln(sayac);
if(sayac<kac) then goto etik;
readln;
end. 

Kodları indirmek için tıklayınız.