Var s,i:integer;
begin
s:=0;
for i:=10 to 99 do
if (i mod 3 = 0) and (i mod 5 <> 0) then s:=s+i;
writeln(s);
end.
Пуск-Панель управления-Мышь- Свойства я думаю так
Сумма чаевых официанту: Sum = 0.15 * (X1 + X2 + X3);
Если X1 = X2 = X3, то Sum = 0.15 * 3 * X = 0.45 * X
uses crt;
var i,min,s:integer;
a:array[1..60] of integer;
begin
s:=0;
for i:=1 to 60 do a[i]:=random(35)+1;
min:=a[1];
for i:=1 to 60 do if min > a[i] then min:=a[i];
for i:=1 to 60 do if a[i] = min then inc(s);
writeln(s,' books for price = ',min,' ru.');
end.