Объяснение:
begin
if Y1 then begin
while Y2 do begin
var S1: S1;
var S2: S2;
end;
else begin
var S3: S3;
end
var S4: S4;
end.
