var
a,b,c,d:Integer;
begin
b:=30;
for a:=1 to 15 do
Begin
c:=5;
WriteLn(b,'/',c);
b:=b-2;
end ;
readln;
end.
Объяснение:
Я смог
