var a,b,S:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
S:=0;
S:=2*a+4*b-a*b;
writeln('Переменная S= ', S);
end.
Объяснение:
