Запишите выражения на языке программирования паскаль : а) y=5x+3; b) x= √7+х; с) y=x2 + x + 1; d) z = x дробь y + 3; e) x равен остатку от деления 19 на 5; f) z равен частному от деления 18 на 3

A) y := 5*x + 3;
b) X := sqrt(7)+x;
c) y := x*x + x + 1; 
d) z := x / (y+3)
e) X := 19 mod 5;
f) Z := 18 div 3;

а) y=5x+3;
a:=5*x+3

b) X= √7+х;
x:=sqrt(7+x) или sqrt(7)+x (не понятно где заканчивается корень)

с) y=x2 + x + 1;
y:=x*x+x+1

d) z = x дробь y + 3;
z:=x/(y+3) (если 
z:=x/y+3 (если 

e) X равен остатку от деления 19 на 5;
x:=19 mod 5

f) Z равен частному от деления 18 на 3
z:=18/3
z:=18 div 3 ( если Z равен целому частному от деления 18 на 3)

Можно воспользоваться вариантом Vladmor, он более легкий и подходит под эту задачу, но чтобы не повторяться, для разнообразности, предложу свой вариант.

1+3+5+7 это ничто иное как арифметическая прогрессия.
Есть несколько формул суммы членов прогрессии, но под этот тип задачи подойдёт такая: 

- это член последовательности с индексом 1, то есть первое число в ряду.
d - это разность между двумя соседними членами, из большего вычитаем меньшее

n - это сколько всего членов

и так, у нас получается
= 1 (в условии задачи сказано что первый подарок весит 1кг)
d = 2 (в условии сказано что следующий подарок увеличивается на 2, ничто иное как разность)
n = это переменная, она нам не известна, поэтому так и оставим.
- это сумма веса всех подарков, в примере используется слово "weight" что в переводе "вес", поэтому подставим это слово.

И теперь подставим что у нас имеется.
weight = 
weight =

В коде программу будет записано так
weight = ( ( 2+2*(n-1) ) / 2)*n

Проверим, например у нас 5 детей, значит надо 5 подарков, это
1+3+5+7+9 = 25
Проверим формулу
weight = ( ( 2+2*(5-1) ) / 2)*5
weight = ( ( 2+2*4 ) / 2)*5
weight = ( ( 2+8 ) / 2)*5
weight = ( 10 / 2)*5
weight = 5*5
weight = 25
Всё сходится.

Расписал подробно, чтобы всё было понятно
Так же этот вариант подойдёт для других таких типовых задач, а вариант Vladmor подойдёт только в некоторых случаях, будь внимателен(на)

// PascalABC.NET 3.2, сборка 1401 от 14.03.2017
// Внимание! Если программа не работает, обновите версию!

1. Решение без проверки вводимых данных

begin
  var a,b:integer;
  Read(a,b);
  var P:=ArrFill(30,0);
  for var i:=a-1 to b-1 do P[i]:=2;
  P.Println
end.

Пример
2 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

2. Решение с контролем ввода

begin
  var a:=ReadInteger('Введите a от 1 до 30:');
  if a<1 then begin Writeln('Неверно'); Exit end;
  var b:=ReadInteger('Введите b от '+a.ToString+' до 30:');
  if (b<a) or (b>30) then begin Writeln('Неверно'); Exit end;
  var P:=ArrFill(30,0);
  for var i:=a-1 to b-1 do P[i]:=2;
  P.Println
end.

Пример
Введите a от 1 до 30: 2
Введите b от 2 до 30: 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0