Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>
Корова, рагу, проволка, дереве, а вот последнее затрудняюсь. может романы
Вероятнее всего - картинка с матрешками. В программе рекурсия - функция, вызывающая в своем теле саму себя.
Var x:integer;
begin
writeln('Введите день недели');
readln(x);
if (x=2)or(x=5) then writeln('можно уехать') else writeln ('нельзя уехать')
end.