" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
uses wincrt;
var m,x:integer;
begin
write('masukan : ');readln(m);
for x:= 1 to m do
writeln('Hasil : ',x);
end.
Jika ada soal pemrograman silahkan tanya ke saya :)