Как будет на языке пасхаля 2 (20+s)=
var s:integer;
begin
writeln('Введите s');
readln(s);
writeln(2*(20+s));
end.