В приложениях находятся два варианта решений. Постановка задачи позволяет решить ее без использования массивов. Такой код находится во втором приложении.
3..................................................................................
Program DZ;
Var name : string ;
klass,urok : integer;
Begin
writeln("Введите имя");
Readln(name);
writeln("Введите класс");
Readln(klass);
writeln("введите колво уроков");
readln(urok);
Writеln("я",name,"ученик класса",klass,"класса");
writeln("на этой неделе у меня",urok,"уроков");
End.
<u>алг </u>
<u>нач</u>
вещ <em>x</em>, <em>y</em>
ввод <em>x </em>
<em>y</em> := (1 - <em>x</em> ** 2 + 5 * <em>x</em> ** 4) ** 2
вывод <em>y</em>
<u>кон</u>