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

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