Ключевое слово "array" написано с ошибкой
program n_1;
var i: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i], ' ');
end.
var
a, i: <em>integer</em>;
begin
readln(a);
i := 50;
while (i <= 950) do
begin
writeln(String.Format('{0} гр. сыра стоит {1} руб.', i, a / 1000 * i));
i += 50;
end;
<span>end.</span>
Все зависит от версии языка Паскаль (см. вложения).
StrToInt определено только в PascalABC.NET, его предшественнике, "умершем" 10 лет назад - Pascal ABC и в Borland Delphi - также давно (с 2008 года) закрытом проекте корпорации Borland Inc.
Вы не указали язык программирования, поэтому ответ выбирайте по вложениям.
Var x: real;
begin
read(x);
if (x>=0) then begin
x:=sqrt(x);
writeln(x)
end
else writeln('No'); // Здесь вроде как No, потому что комплексное число в паскале можно составлять исключительно через строки, не думаю, что потребуется.
readln()
end.