на первое примерно

program имя;

var x,y,c,v: integer;

begin

wreteln('Ведите число x');

read(x);

wreteln('Ведите число y');

read(y);

wreteln('Ведите число c');

read(c);

v:=x+y+c;

wreteln('Ответ: 'v );

end.