Var
x,y:integer;
begin
readln (x);
while x>0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln ('Первая цифра = ',y);
end.
Новгород, петроград,Ленинград,Белгород, Вышеград, Кировоград,Царьград, Павлоград
Прямоугольник
объёмный прямоугольник
эллипс
многоугольник
спираль
Ответ:100101001
Объяснение:Черный квадратик - 1, белый - 0