PERULANGAN FOR TO DO _ PASCAL

program perulangan_for_to_do;
 uses crt;
var i,x,y,jumlah:unteger;
begin
for i:= 1 to 22 do

begin
write('kasukan data 1=');read(x);
write('masukan data 2=');read(y);
jumlah:=x+y;
writeln ('jumlah:=',jumlah);readln(jumlah);
end;

end.

~SEMOGA BERMANFAAT~