Напишите последующую программку на языке Паскаль.

Program pr1;

uses crt;

var

  a,b:real; // Числа

  c,d:real; // Окончательные значения

Begin

  clrscr;

  write('Введите a и b: ');

  readln(a,b);

  c:=SQR(a+b);

  d:=SQRT(c);

  writeln('Уравнение С= ',c);

  write('Уравнение D= ',d);

  readln;

End.