Question

Program n_66; var x, max:real; i: integer; begin writeln ('Введите число'); readln (max); for i:=1 to 9 do begin writeln (x); if x>max then max:=x end writeln ('максимум -', max'); end.Встречено 'writeln' а ожидалось ';'

Answer 1

После первого "end" поставь ;
Если не помогло скажи

Answer 2

The provided Pascal program has a few syntax errors. I'll help you fix them:

1. There's a missing semicolon after the for loop declaration.
2. The x variable is not initialized before being used in the writeln statement.
3. The comparison operator > is not correctly encoded (> is an HTML entity, not used in Pascal).

Here's the corrected version of the Pascal program:

pascalCopy code
Program n_66;
var
  x, max: real;
  i: integer;

begin
  writeln('Введите число');
  readln(max);
  for i := 1 to 9 do 
  begin
    writeln('Введите число');
    readln(x);
    if x > max then 
      max := x;
  end;
  writeln('максимум -', max);
end.

Now the program should work correctly. It asks the user to input a number (max) and then proceeds to read 9 more numbers (x) from the user. It keeps track of the maximum value entered among the 10 numbers and prints it at the end.