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

var    num: word;begin    read(num);    write(num);end.__________________________Все вроде как по заданию