нач. пункт:лев ниж угол
1 сместиться на 5 клеток в верх
2 повернуться на 90 градусов в право
3 сместиться на 2 клетки вперёд
4 повернуться на 90 градусов в право
5 сместитьтся на 2 клетки вперёд
6 повернутся на 90 градусов в лево
7 сместится на 2 клетки вперёд
8 повернутся на 90 градусов в лево
9переместиться 2 клетки
10 повт 8 и 9
11 повторить всё это ещё один раз
Var a,b:integer;
c:real;
begin
readln(a,b);
if ((a+b) mod 2 = 0) then c:= a*b
else c:= a/b;
writeln(c);
readln();
<span>end. </span>
Const N = 5;var a: array [1..N] of integer;k,i:integer;begink:=maxint;for i:= 1 to N do readln (a[i]);for i:=1 to N do beginif (i mod 2 = 0) and (a[i]<k) then k:= a[i] end;writeln (k);end.
первый 0 означает что для вывода челой части будет использованно минимальное количество символов
второй 0 означает что число будет округляться до 0 знаков после запятой