program griby;
var k: integer;
begin
readln (k);
writeln ('Мы нашли в лесу',k,' ', ' грибов');
end.
Ответ "В"..........................................
В онлайне сделать попробуй
Program ves;
var
i,min,ch:LongInt;
begin
readln(ch);
min:=ch;
for i := 1 to 3 do
begin
readln(ch);
if min>ch then min:=ch;
end;
writeln(min)
end.
пж отметь как лучший
Ральф Джонсон, Эрих Гамма, Ричард Хелм, Джон Влиссидес.