Var d, w, p, u: integer;
begin read(d); read(w); read(p); read(u); if u <= d + w then begin write(d, ' '); write(u - w); end else if u > d + w + p then begin write(p + d,' '); write(p + d); end else begin write(u - w,' '); write(p); end;end.
Вроде это :
<span>сбор, подготовка, передача, обработка, хранение, отображение</span>
Исходник и пример работы в приложении к ответу
Var a,b,c:real;
<span>begin </span>
<span>readln(a); </span>
<span>readln(b); </span>
<span>readln(c); </span>
<span>if (b*b-4*a*c)>=0 then writeln('deistvitelnie korni est!') else writeln('deistvitelnih korney net'); </span>
<span>if (b*b-(4*a*c))>0 then begin writeln('2 kornya'); writeln('x1= ',(-b-sqrt(b*b-4*a*c))/(2*a)); writeln('x2= ',(-b+sqrt(b*b-4*a*c))/(2*a)) end; </span>
<span>if (b*b-(4*a*c))=0 then begin writeln('1 koren'); writeln('x= ',(-b+sqrt(b*b-4*a*c))/(2*a)) end; </span>
<span>end.</span>