адцати литровой и в семи литровой окозалось по 6 литров.
var x,y:real;
BEGIN
readln(x);
if (x<=0) then
y:=-2*sqr(x)+x+1 else
y:=-2*sqr(x)+3;
writeln(y);
end.
Program zadanie;
Var a,b,s1,n:integer;
Begin
Writeln('Введите 3-х значное целое число');
readln(s1);
If (s1>=100) and (s1<=999) then begin
for n:=100 to s1 do begin
a:=n div 100+(n div 10) mod 10;
b:=(n mod 100) mod 10+(n div 10) mod 10
end;
if a<b then writeln(b,a)
else writeln(a,b)
writeln('Неправильное число.')