Turbo Pascal 7.0 / TP7DOS / FRIDAY

Program lab251;
uses crt;
var
A:array [1..10, 1..2] of real;
S:array [1..100] of real;
i,j,n,k: integer;
begin
clrscr;
n:=0;
for i:=1 to 10 do
for j:=1 to 2 do
begin
write ('A(',i,',',j,')=');
readln (A[i,j]);
begin
if (A[i,2]/A[i,1])> 0.15 then
begin
for k:=0 to n do;
begin
S[k]:=i;
end;
n:=n+1;
end;
end;
end;
writeln ('Vsego Grupp ', n);
for i:=1 to n do
writeln (s[k]:1:0);
repeat until keypressed;
end.