Question

Помогите с программой на языке "Pascal"

Answer 1

program a1;
var x,y: Real;
i: Integer;
Begin
x:=1;
Writeln('----------------+');
Writeln('| Y | X |');
Writeln('+---------------+');
while x<=11 do
begin
y:=4*sqrt(x-1);
Writeln('|',y:7:3,'|',x:7:3,'|');
Writeln('+---------------+');
x:=x+0.5;
end;
ReadLN(x);
End.