Вот код и результат выполнения программы на ЯП Python3.6.2
Var p,h,e,s,t,x: integer;
begin write('Введите стоимость проезда в 1 сторону: ');
readln(p);
write('Введите стоимость проживания в двухместном номере в сутки: ');
readln(h);
write('Введите стоимость питания в сутки: ');
readln(e);
write('Введите стоимость страховки: ');
readln(s);
write('Введите стоимость трансфера: ');
readln(t);
x:=p*2+h*7+e*7+s+t;
writeln('Стоимость тура = ',x, '$', ' - ', x*34.75, 'руб');
<span>end.</span>
Как мы тебе его здесь построим? открывай эксель и пиши в ячейках формулы
Program n1;
var n,m,p,k: longint;
begin
write('введите n: ');
readln(n);
m:=n;
k:=0;
while m<>0 do begin
p:=m mod 10;
K:=K+1;
m:=m div 10;
end;
writeln('кол-во цифр: ',K);
end.