Quick actions

cmd+k|ctrl+k

Navigation

Languages

YULFIN A. P. GOWASA

Snippet info

Language

Pascal

Visibility

public

Author

yulfingowasa5409

Created

2024-02-22T15:34:51.296023Z

Updated

2024-02-22T15:34:51.296023Z

program for_to_do;
var
  i, n, angka: integer;
begin
  write('8 : ');read(angka);
  write('10 : ');read(n);
  for i:=1 to 10 do
    begin
      writeln( i ,' x ', 8 ,' = ', i * 8);
    end;
end.
INFO