Pascal Вводится число. Если оно положительное, то уменьшить его в 10 раз

Question

Pascal
Вводится число. Если оно положительное, то уменьшить его в 10
раз

Comments

Если число не положительное что делать?

---

Ну вроде ничего.

Answer 1

Program prog1;
var
num:integer;
begin
read(num);
if num>0 then
num:=num-10;
end.