Var
i,j:0..9;
n: integer;
begin
readln(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then writeln(i*10+j)
end.
6
15
24
33
42
51
60
Язык какой ? Это обязательно
Прога будет выглядеть примерно так
program_summa;
var a,b,c: real;
begin
c:=a+b;
writeln(c);
c:=a-b;
writeln(c);
c:=a/b;
writeln(c);
end.
3 задание: 1-2 2-1 3-3 4-4