Ответ: программа pascal

program m2; var a, b, c:real;

begin readln (a); b:=a×a; c:=sqrt(a); writeln (a, b, c); end.

Объяснение: a это число мы вводим, b это квадрат числа, c это квадратный корень числа, sqrt это операция для нахождения квадратного корня.