Pascal
Вводится число. Если оно положительное, то уменьшить его в 10
раз
Program prog1;
var
num:integer;
begin
read(num);
if num>0 then
num:=num-10;
end.
Оцени ответ
