Чтобы открыть секретный сейф, агент 007 должен в возрастающем порядке набирать все трехзначные числа, в записи которых нет одинаковых цифр. Составить програму, которая бы печатала для агента на экране такие числа, а также определить, сколько времени потребуется ему для вскрытия сейфа, если на набор одного числа он тратит t секунд. — Pascal(Паскаль)

uses crt;
var c1,c2,c3:integer;
t,k:integer;
 
begin
 clrscr;
 write('T -> ');
 readln(t);
 k:=0;
 for c1:=1 to 9 do
 for c2:=0 to 9 do
 for c3:=0 to 9 do
 if (c1<>c2) and (c2<>c3) and (c1<>c3) then
 begin
  inc(k);
  write(c1,c2,c3,' ');
 end;
 writeln;
 writeln('Общее время = ',k*t,' с');
 readln;
end.

Program suma;

uses crt;

var
  c1, c2, c3: integer;
  k: integer;

begin
  clrscr;
  k := 0;
  for c1 := 1 to 9 do
    for c2 := 0 to 9 do
      for c3 := 0 to 9 do
        if (c1 <> c2) and (c2 <> c3) and (c1 <> c3) then
          k := c1 * 100 + c2 * 10 + c3 + k;
  writeln('Obshie symaя=', k);
  readln;

end.