===== PascalABC.NET =====
begin
var a := ArrGen(42, i -> 7 * i, 1);
a.Println
end.
Я проверила, у меня в паскале все правильно. Название программы восхитительное:)))
#1.
var n,i,flag:integer;
begin
readln (n);
flag:=0;
while n>0 do
begin
i:=n mod 10;
n:=n div 10;
flag:=flag+1;
end;
if (flag = 2)
then writeln ('Это число двузначное')
else
writeln ('Число не является двузначным');
end.
#2.
var n:integer;
begin
readln (n);
if (n mod 2 = 0) then
writeln ('Это число четное')
else
writeln ('Число не является четным');
end.