var Form1: TForm1; k,l,m,n: integer;
implementation
{$R *.dfm}
begin k:= 25; l := k mod 2; m := k mod 3; n := l+m; ShowMessage(inttostr(l) + ‘,’ + inttostr(m) + ‘,’ + inttostr(n)); end.
Assinale a alternativa que apresenta corretamente a saída gerada pelo programa.

