ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Program task3;
var 
	a,b,c:byte;
begin
	write('N=');
	readln(c);
		for a:=0 to c do
			for b:=0 to c do
				if 3*a+5*b = c then
				begin
					if a <> 0 then Write(a,' Troek, ');
					if b <> 0 then Write(b,' Pyaterok, ');
					Writeln(' = ',c)
				end;
end.