#1
var
x : integer;
chanse : real := 0;
begin
readln(x);
chanse := (x/12)*100;
write('Chanse: ');
write(chanse:2:2);
writeln('%');
for var i:=1 to 12 do
for var j:=1 to 12 do
if (j + i = x) then
writeln(j + ' ' + i);
end.
#2
//Стремное условие, я его не понял//
#3
var
n : integer;
begin
readln(n);
for var a:=1 to n do
for var b:=1 to n do
for var c:=1 to n do
if (a*a + b*b = c*c) then
writeln(a+ '^2 + ' + b + '^2 = ' + c + '^2')
end.
#4
var
x : integer;
chanse : real := 0;
begin
readln(x);
chanse := (x/18)*100;
write('Chanse: ');
write(chanse:2:2);
writeln('%');
for var i:=1 to 12 do
for var j:=1 to 12 do
for var b:=1 to 12 do
if (j + i + b = x) then
writeln(j + ' ' + i + ' ' + b);
end.