Вычислить значение выражения - PascalABC.NET (24663)

Разработать схему алгоритма для вычисления выражения S=(2x+y)(x-y) Сделайте в паскале и киньте решение плиз

Листинг программы

var
  s, x, y: real;
 
begin
  readln(x);
  readln(y);
  s := (2 * x + y) * (x - y);
  writeln(s)
end.

Объяснение кода листинга программы

В начале кода объявляются три переменные: s, x, y типа real.
Далее, с помощью функции readln() в переменные x и y считываются значения с клавиатуры.
Затем, создается переменная s, которая вычисляется как произведение (2*x + y) и (x-y).
И, наконец, с помощью функции writeln() на экран выводится значение переменной s.