Составить программу на pascal и блок схему дано натуральное число n. вычислить n

Var
    num: word;
begin
    read(num);
    write(num);
end.
__________________________

Все вроде как по заданию