<span>Если я понял о чем ты, то вот:
var
x, y, b: integer; // описание переменных
begin // начало программы
write ('y = x*b ');
read(x,b); // ввод переменной x,b
if x > 0 </span>// проверка, х больше от 0?<span>
then
y := y * b // если да, то исполняется это
else </span><span>
if x = 0 then </span>//если нет, то это(тут опять же проверка, х равно 0?)<span>
y := 0 // если да то "y" присваивается 0
else
y := abs(x); // если нет то "y" присваивается значение модуль "х"
writeln ('y = ', y); // выводятся значения,
end. // завершение программы</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y,z):=ReadReal3;
var u:=Min((x+y+z)/2,x*y*z)+1;
Writeln(u)
end.
Будет! батарея может сдохнуть! если долгое время не подзаряжать планшет, то батарея будет работать хуже, и держать заряд. А если им не пользоваться, но хотябы 1 раз в неделю подзаряжать, то все норм будет
АБЕЖДГВ
сначала протокол, потом ://, потом сервер, потом /, потом имя файла)