системы исчисления от 7 до 16
var a:integer;
begin
readln(a);
if a>50 then
a:=a/2;
else a:=a*a;
Writeln(a);
end.
Ответ:
Вниз
Закрасить
Влево
Влево закрасить
Вверх
Вверх закрасить
Вправо
закрасить