Требуется определить, можно ли от шоколадки размером n × m долек отломить k долек, если разрешается сделать один разлом по прямой между дольками (то есть разломить шоколадку на два прямоугольника программа на паскале abc

Var
n,m,k:integer;
begin
readln(n,m,k);
if ((k mod n=0)or(k mod m=0))and(n*m>=k)then writeln('Можно')
else writeln('Нельзя');
end.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  var a:=s.ToWords('.').Select(t->Trim(t)).ToArray;
  var b:=s.ToWords(Arr('.',' '))
      .GroupBy(t->t).Select(t->(t.Key,t.Count))
      .Where(t->t[1]>1).Select(t->t[0]).ToArray;
  a.Cartesian(b,(p,q)->p.Contains(q)?p:'')
      .Where(t->t.Length>0).Distinct.PrintLines
end.

Примеры
Мама мыла полы. Маша ела кашу. Даша пила молоко. Таня мыла полы.
Мама мыла полы
Таня мыла полы

Мама мыла раму. Маша ела кашу. Даша пила молоко. Таня мыла полы.
Мама мыла раму
Таня мыла полы

Program c;var a,b:array [1..10] of integer;  i,j,temp,l,q:integer;begin   j:= 1;   for i:=1 to 10 do    begin      readln(a[i]);      if a[i] mod 2 = 1 then        begin        b[j]:=a[i];        j:=j+1;        end;      end;      j:= j - 1;      l:= j;     for i := 1 to j do        for  q:= 1 to j - i do            if b[q] > b[q+1] then begin                temp := b[q];                b[q] := b[q+1];                b[q+1] := temp;            end;   writeln('Res:');     for i:= 1 to l do      writeln(b[i]);end.