Правильно ли?

Question

Program proz;
Var a:array (1..50) of real;
i:integer;
Begin
Rondomize;
for i: = 1 to 50 do begin
a(i):=random (50)+1;
writeln (a(i));
end.

Answer 1

sorry I'm not Russian speaking