1./вводится любое число с клавиатуры. если оно четное умножить его на 2, иначе прибавить 1. полученное число вывести на экран. 2./на экране выводится сообщение «сколько в 1 байте бит? » если вводится правильное число, то на экране выводится сообщение «молодец! », иначе – «повтори единицы измерения количества информации». паскаль

var
n:integer;

begin
readln(n);
if n.IsEven then n:=n*2
else inc(n);
writeln(n);
end.


var
n:integer;

begin
writeln('Сколько в 1 байте бит?');
readln(n);
if n=8 then writeln('Молодец!')
else writeln('Повтори единицы измерения количества информации');
end.