Создание модели сообщающихся сосудов на Pascal может выглядеть примерно так:

program CommunicatingVessels;
var
vessel1, vessel2: integer;
volume1, volume2, amount: integer;
begin
// Изначальные объемы в сосудах
volume1 := 0;
volume2 := 0;
writeln('Введите начальный объем в первом сосуде:');
readln(vessel1);
writeln('Введите начальный объем во втором сосуде:');
readln(vessel2);
writeln('Введите количество жидкости:');
readln(amount);
// Переливаем жидкость из первого сосуда во второй
if vessel1 >= amount then
begin
volume1 := vessel1 - amount;
volume2 := vessel2 + amount;
end
else
begin
volume1 := 0;
volume2 := vessel2 + vessel1;
end;
// Выводим объемы после переливания
writeln('Объем в первом сосуде:', volume1);
writeln('Объем во втором сосуде:', volume2);
end.

Этот код позволяет смоделировать переливание жидкости из одного сосуда в другой и вывести объемы в сосудах после этой операции. Вы можете добавить дополнительные проверки и условия в соответствии с вашими требованиями и логикой модели сообщающихся сосудов.