Составить алгоритм и написать решение задачи на Паскале: Сгенерировано целое число в диапазоне от 20 до 30. Найти диагональ квадрата с данной стороной.

var a:integer;x:real;begina:=random(20,30);x:=sqrt(sqr(a)+sqr(a));writeln('сторона= ',a);writeln('диагональ= ',x);end.