program MarsTourists;

var
totalPassengers, groupSize, groups, guidesNeeded: integer;

begin
totalPassengers := 0;
groups := 0;
guidesNeeded := 0;

writeln('Enter the number of tourists arriving in groups: ');

repeat
writeln('Enter the size of the group: ');
readln(groupSize);

if (totalPassengers + groupSize <= 750) then
begin
totalPassengers := totalPassengers + groupSize;
groups := groups + 1;
end
else
begin
writeln('Cannot add group, kerosene');
end;

until totalPassengers = 750;

guidesNeeded := groups;

writeln('Total number of tourists: ', totalPassengers);
writeln('Total number of groups: ', groups);
writeln('Total number of guides needed: ', guidesNeeded);

end.