Встречено "Writeln" а ожидалось ";" program b; var x, y:real; begin writeln('Введите первое число'); readln(x); Writeln('Введите второе число'); readln(y); if (x>10) and (y>10) then x:=x*y writeln('Произведение числа=', x) else y:=x+y writeln('Cумма чисел=', y) end.

program b;

var x,y:real;

begin

writeln('Введите первое число');

readln(x);

Writeln('Введите второе число');

readln(y);

if (x>10) and (y>10) then  

 begin  

 x:=x*y;

 writeln('Произведение числа=', x);

 end

                    else

 begin  

 y:=x+y;

 writeln('Cумма чисел=', y);

 end;

end.

В любую операционную систему встроен браузер, если он не угодил, можно скачать с интернета. Для того, чтобы скачать его с интернета, нужно ввести название браузера, а позже слово "скачать", вам откроются множество сайтов, но самый первый - будет оффициальный сайт. После входа на сайт, будет представлен большой(или не очень) сайт, там должна быть кнопка "Скачать". После скачивания инсталлятора нам необходимо его установить на ПК, для этого его нужно открыть, после установки браузером можно пользоваться!

Відповідь:

ТОЧНО ОТВЕТ ДАТЬ НЕ МОГУ НО МОЖНА ОРИЕНТИРОВАТСЯ ПО ЭТОМУ

begin   //начало программы

var nk, nt, ck ,ct, s: integer  // задание переменных типа действительные числа;

writeln('Введите количество карандашей'); //вывести на экран надпись

readln(nk);  // запись ответа пользователя в переменную nk

writeln('Введите количество тетрадей'); //вывод на экран надписи

readln(nt); // запись ответа пользователя

writeln('Введите стоимость 1 карандаша');  // вывод на экран надписи

readln(ck); // запись ответа пользователя в переменную

writeln('Введите стоимость 1 тетради');

readln(ct);

s:=(nk*ck)+(nt*ct); // вычисление стоимости покупки

writeln('Стоимость покупки: ',s);  // вывод стоимости покупки на экран

end.  // конец программы

(ck-стоимость 1 карандаша, ct-стоимость 1 тетради, s-стоимость покупки)

(nk-количество карандашей, nt-количество тетрадей)

Детальніше - на -

Пояснення: