Напишите программный код на языке Паскаль для решения следующей задачи. Даны переменные a и b, значения которых нужно ввести с клавиатуры. Вычислите значение функции Z (a, b)
В приведённой функции есть повторяющиеся конструкции a2 + b2, которые необходимо посчитать один раз, а затем использовать результат вычислений. Разбейте сложное вычисление одного выражения на простые вычисления для облегчения ввода результирующей формулы.

Программная реализация обязательна. На проверку нужно прислать скриншоты окна программы Паскаль или Python с отображением кода и результата работы.

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.

из-за того, что там не было древесины, люди писали на глинянных тощечках. они колышками выдавливали символы.

var i: integer;

s,v: real;

begin

  read(i,v);

  case i of

      1: s: =pi*v*v;

      2: s: =pi*v*v/4;

      3: s: =v*v/pi/4;

  end;

  writeln(s);

end.

program ms301;  

var a,b,c: integer;

begin

writeln('введите три числа'); readln(a,b,c);

a: =sqrt(a);

b: =sqrt(b);

c: =sqrt(c);

writeln(a,', ',b,', ',c);

readln;

end;