Объяснение:
var n,d,k,g:integer;
begin
g:=0;
writeln('Введите число кружек, которые выпил 1й рабочий');
readln(n);
writeln('Введите число кружек, которые выпил 2й рабочий');
readln(d);
writeln('Введите число кружек, которые выпил 3й рабочий');
readln (k);
g:=g+k+d+n;
writeln('ответ:',g);
end.
Объяснение:
var n,d,k,g:integer;
begin
g:=0;
writeln('Введите число кружек, которые выпил 1й рабочий');
readln(n);
writeln('Введите число кружек, которые выпил 2й рабочий');
readln(d);
writeln('Введите число кружек, которые выпил 3й рабочий');
readln (k);
g:=g+k+d+n;
writeln('ответ:',g);
end.