PascaL Kod Çıktısı ?

[ChaiCén]

Arkadaşlar pascal programlama dilinden anlayanların yardımlarını bekliyorum.Bir Sorum oLacakdı ...

Soru: Klavyeden GiriLen İki sayıdan küçüğünü buLan ve 1 Den Bu sayıya kadar olan sayıların toplamının karekökünü alıp ekrana yazdıran program ?

TeşekkürLer

 

[Swat_TR]

Bu şekilde kimse sana yardım etmez. Sen kodu yaz çalışmazsa buraya koy hatayı bulur düzeltiriz ama bu şeklide yardım alamazsın.

 

[cyberalman]

uses crt;
var
a,b,d:integer;
toplam,karakök:integer;
begin
writeln('birinci sayiyi giriniz');readln(a);
writeln('ikinci sayiyi giriniz');readln(b);
if a<b then d:=a
if b<a then d:=b
toplam:=0
for i:=1 to d to
toplam:=toplam+i
writeln('sayıların toplami ',toplam);
benden bu kadar . karakök almayı kendin yaparsın .