Код программы:
var x, c, F:integer;
begin
writeln('Введите x');
readln(x);
writeln('Введите c');
readln(c);
F := 4*x+2*(c-3);
writeln('F = ', F);
end.
