program c1;
var
a,k:integer;
begin
writeln( ' Введите число в диапазоне от 1 до 10: ')
read(a);
if ((a<=10) and (a>=1)) then k:=a*a*a else write (' Введённое число не входит в диапазон чисел');
end.
В первой задаче а:=5
А)а=8
В)а=8
С) остаток от деления 5/14 не знаю, может 0, тогда а:=-9, некоторые считают, что само делимое, т.е 5, тогда а=-4
Д) тоже самое или -7 или -5
var a,i:integer;
begin
readln(a);
for i:=1 to a do writeln(i*i);
end.
У Англии есть традиция пить чай.