turbo pacal 既問題:好緊要

program squareRoot;
var
x:integer;
begin
writeln('Welcome!');
repeat
write('Input a number:');
readln(x);
writeln('square of ',x,' is ',x*x);
until x=4;
end.