Сложно очень,попроси учителя чтобы помог
Сущ.-кошка
несущ.-дерево,машина, яблоко
Var
n,k,i,t:integer;
begin
Read(n);
k:=0;
for i:=1 to n do begin
Read(t);
if (t mod 6=0) and (t mod 10=2) then Inc(k)
end;
Writeln(k)
end.
Uses crt;
var a,b,c,ch1,ch2:integer;
begin
readln (a,b,c)
if (a>b) and (a>c) then begin ch1:=a+1; ch2:=a-1;end;
if (b>c) and (b>a) then begin ch1:=b+1; ch2:=b-1;end;
if (c>b) and (c>a) then begin ch1:=c+1; ch2:=c-1;end;
writeln ('преведущее = ',ch2,'последущее = ',ch1);
end.
Не пойму что тут делать с goto