1) program z1;
Var a:integer;
Begin read(a);
if (a>9) and (a<100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом');
end.
2)program z2;
var c:integer;
begin
readln(c);
if (c mod 2)=0 then writeln(c div 5) else writeln(c*10);
1) program z1;
Var a:integer;
Begin read(a);
if (a>9) and (a<100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом');
end.
2)program z2;
var c:integer;
begin
readln(c);
if (c mod 2)=0 then writeln(c div 5) else writeln(c*10);
end.