Program asdas;
Uses crt;
var a,b:integer;
begin
writeln ('Введите стаж');
readln (a);
if a<=5
then b:=130
else if a>0
then b:=180;
end.
<span>размер, тип, количество файлов - это зависит от почтового сервера, с которым работаете</span>
Обработка-редактирование документа,
хранение-database, библиотека
передача-отправка писем, разговор
14336:1024=14 Кбайт
Ответ: 14
<span>var
i, k,n, max: integer;
f:boolean;
begin
readln(k);
for i := 1 to k do
begin
readln(n);
if (i = 1) or (max < n) then
max := n;
f:=f or (n=0);
end;
writeln(max,' ', f);
end.</span>