Между end пишешь
T:=0;
For i:=1 to 30 do
Begin
If a[i]>60 then t:=t+1 ;
end;
If t>30 theb writeln ("рекомендую повысить лимит ") else writeln (" лимит оптимальный ");
Между end пишешь
T:=0;
For i:=1 to 30 do
Begin
If a[i]>60 then t:=t+1 ;
end;
If t>30 theb writeln ("рекомендую повысить лимит ") else writeln (" лимит оптимальный ");