uses crt; var a,b,c,d:integer; begin clrscr; writeln('1 sayıyıgirin'); readln(a); writeln('2 sayıyı girin'); readln(b); for c:=1 to a do begin d:=d+b; end; write('sonuc',d); readln; end. (Emre ALPARSLAN www.emrealparslan.com)