a 4to neponjatno tut?

1. Робот может перемещаться в четырех направлениях («С» - север, «З» - запад, «Ю» - юг, «В» - восток) и принимать три цифровые команды: 0 – продолжать движение, 1 – поворот налево, -1 – поворот направо.

Дан символ С – исходное направление робота и целое число N – посланная ему команда.

Вывести направление робота после выполнения полученной команды.
var c: char;
k: integer;
begin
c:='';
k:=0;

writeln('vvedite napravlenie'); readln(c);
writeln('vvedite komandy'); readln(k);

case C of begin
'С': writeln('napravljaemsja na север');
'З': writeln('napravljaemsja na запад');
'Ю': writeln('napravljaemsja na юг');
'В': writeln('napravljaemsja na восток');
end;

case k of begin
0: writeln('продолжаem движение');
1: writeln('поворa4ivaem налево');
-1: writeln('поворa4ivaem направо');
end;

end.




nu gde to tak budet vigljadet

{2. Элементы окружности пронумерованы следующим образом:
1 – радиус R, 2 – диаметр D=2*R, 3 – длина L=2*ПИ*R, 4 – площадь круга S=ПИ*R2.
Дан номер одного из этих элементов и его значение.
Вывести значение остальных элементов данной окружности (в том же порядке).
В качестве значения ПИ использовать 3.14.
}
uses crt;
var
n: integer;
p,r,d,l,s,z: real;

begin
clrscr;
writeln('vvedite nomer');
readln(n);
writeln('vvedite Zna4enie');
readln(z);

p:=3.14;
case n of
1: begin
writeln('Vveden radius');
r:=z;
d:=2*r;
l:=2*p*r;
s:=p*r*r;
writeln('радиус= ',r:2:2,', диаметр=',d:2:2,', длина=',l:2:2,', площадь круга=',s:2:2);
end;
2: begin
writeln('Vveden diametr');
d:=z;
r:=d / 2;
l:=2*p*r;
s:=p*r*r;
writeln('радиус= ',r:2:2,', диаметр=',d:2:2,', длина=',l:2:2,', площадь круга=',s:2:2);
end;
3: begin
writeln('Vvedena dlina');
l:=z;
r:=l / 2*p;
d:=2*r;
s:=p*r*r;
writeln('радиус= ',r:2:2,', диаметр=',d:2:2,', длина=',l:2:2,', площадь круга=',s:2:2);
end;
4: begin
writeln('Vvedena plowad');
s:=z;
r:=sqrt(s/p);
l:=2*p*r;
d:=2*r;
writeln('радиус= ',r:2:2,', диаметр=',d:2:2,', длина=',l:2:2,', площадь круга=',s:2:2);
end;
end;
readkey;
end.

{3.
Дано целое число N(>0).
Если оно является степенью числа 3, то вывести True,
если не является – вывести False.

Кубом числа называется результат умножения числа на само себя дважды (возведения числа в степень 3).

Далее приведено начало числовой последовательности для кубов неотрицательных чисел (последовательность A000578 в OEIS):
0, 1, 8, 27, 64, 125, 216, 343, 512, 729, 1000, 1331, 1728, 2197, 2744, 3375, 4096, 4913, 5832, 6859, 8000, 9261, 10648, 12167, 13824, 15625, 17576, 19683, 21952, 24389, 27000, 29791, 32768, 35937, 39304, 42875, 46656, 50653, 54872, 59319, 64000, 68921, 74088, 79507, 85184, 91125, 97736, 103823, 110592, 117649, 125000, 132651, 140608, 148877, 157464, 166375, 175616, 185193, 195112, 205379, 216000, 226981, 238328…
}

uses crt;
var r:real;
n:integer;

function kor(x,y:real):real;
begin
kor:=exp(ln(x)/y);
end;

function step(x,y:real):real;
begin
step:=exp(ln(x)*y);
end;

begin
clrscr;

writeln('vvedite n:');
readln(n);

r:=kor(n,3);

writeln('r:',r:2:2,' step r^3=',round(step(r,3)));
writeln('step(',round(r),',3) = n ---- ',round(step(r,3)),'=',n);

if round(step(r,3)) = n then writeln('true')
else writeln('false');
readkey;
end.

4-6 zadanija ne osobo ponjatni..... popodrobnee yslovie ...