1) Определить, является ли введенное с клавиатуры число трехзначным?

2) Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.

1)program b1;var a:real; //real, потому что может быть число как и целое так и дробное.beginwrite('Введите число: ');readln(a);if (a>=100) then writeln('Число ', a, ' является трехзначным')end.2) program b2;var a:integer;beginwrite('Введите число: ');readln(a);beginif a>0 then Inc(a) else writeln(a)end;writeln(a)end.