Var x: integer;
begin
readln(x);
if x > 0 then x := x * x
else x := x * x * x;
writeln(x);
<span>end.</span>
Ответ:
Program p;
var a,s:integer;
Begin
Readln(a, s);
While s <>0 do begin
s := s mod 10;
if (s = a) then begin
writeln('yes');
s :=0;
end
else writeln('no');
if ( a < 10) then writeln('no');
end;
end.
Объяснение:
<span>1. 50 и 30 2. 80 3. Больше Чем 30 4. Больше
</span>
Чтобы принтер мог пропечатать всё. Если бы отступа не было, часть текста была бы не видна или принтер весь был бы в чернилах.