program z1;
var a:integer;
begin
write('a = ');
readln(a);
if a > 0 then a:=a*2
else a:=a*3;
writeln('a = ',a)
end.
Объяснение:
Вводим число
Проверяем условие
Выполняем действие (в зависимости от условия)
Выводим число
a = 2
if a > 0:
a *= 2
else:
a *= 3
print(a)
program z1;
var a:integer;
begin
write('a = ');
readln(a);
if a > 0 then a:=a*2
else a:=a*3;
writeln('a = ',a)
end.
Объяснение:
Вводим число
Проверяем условие
Выполняем действие (в зависимости от условия)
Выводим число
a = 2
if a > 0:
a *= 2
else:
a *= 3
print(a)