тот кто пишет начальное число конечно. напиши 19 и второй проиграл
Var n, i: integer;
begin
read(n);
for i:=10 to 99 do
if (i mod n=0) and (i mod 10<>n) and (i div 10<>n) then write(i, ' ');
end.
Var a,b: Integer;
begin
writeln('Введите a и b');
readln(a,b);
writeln('S=a*b=',a*b);
writeln('P=2*(a+b)=',2*(a+b));
end.