Delete(краткая del),,,,,,
Var A,L: real;
begin
readln(L);
A:=((exp(ln(L)*3)-8.5)/7.6)+10*sqr(L);
writeln(A);
end.
3 буквы сорян может я не так понял как ты имел в виду
Begin
for var i:=1 to 7 do
writeln('Привет');
End.
По идее, в первом у нас ответ Б, т.к. только это является хранением информации, и во втором тоже Б, т.к. архиваторы, как раз, служат для сжатия, так что:
1Б
2Б