Домашняя работа по Информатике. Записать на языке Паскаль.

 Program P1;  

uses crt;  

var a: integer;  

begin  

clrscr;   

write ('Введите с клавиатуры целое число, после чего нажмите клавишу Enter: ');  

readln (a);  

if a>0 then a:=a+1;  

writeln ('Результат: ', a);  

write ('Программа завершена. Для выхода нажмите клавишу Enter.');  

readkey;  

end. 

 Program P1;   

uses crt;   

var a: integer;   

begin   

clrscr;    

write ('Введите с клавиатуры целое число, после чего нажмите клавишу Enter: ');   

readln (a);   

if a>0 then writeln ('Введенное число положительное (>0) -> Результат: ', a+1) else writeln ('Введенное число не является положительным ( Результат: ', a);   

write ('Программа завершена. Для выхода нажмите клавишу Enter.');   

readkey;   

end. 

 Program P2;  

uses crt;  

var a, b: real;  

begin  

clrscr;  

writeln ('Введите с клавиатуры 2 числа. После ввода каждого числа нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.');  

write ('Введите 1-ое число: ');  

readln (a);  

write ('Введите 2-ое число: ');  

readln (b);  

if a>b then writeln ('1-ое число больше 2-ого.') else  

if ab then writeln ('1-ое число больше 2-ого.') else writeln ('2-ое число больше 1-ого.'); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.');   

readkey;   

end.