Задание № 3. Дано тело программы, запиши переменные в Var. Обеспечь вывод на экран значение переменных а и b. Вывод должен быть оформлен таким образом: a=24, b=7. begin a := 5; b := a + 2; a := (a + 2)*(b – 3); end.​

Program z_3;

var a,b:integer;

begin

a := 5;

b := a + 2;

a := (a + 2)*(b-3);

write('a=',a,', b=',b);

end.

Проверка работы программы:

a=5;

b=5+2=7;

a=(5+2)×(7-3)=7×4=28;

Верно: a=28; b=7

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.

Uses Crt;
Var
   A,B:integer;
   P:real;
   C:boolean;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
P:=1;
C:=false;
B:=Abs(B);
While B>0 do
   Begin
   P:=P*(B mod 10);
   if B mod 10 = A then C:=true;
   B:=B div 10
   End;
WriteLn('P = ',P);
if C then WriteLn('Не верно')
else WriteLn('Верно');
ReadLn
End.

uses Crt;
Var
   A:integer;
Begin
ClrScr;
For A:= 100 to 999 do
    if ((A+1) mod 2 = 0)and((A+2) mod 3 = 0)and((A+3) mod 4 = 0)and((A+4) mod 5 = 0) then Write(A,' ');
ReadLn;
End.

uses Crt;
Var
   A,B,C:integer;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
C:=0;
While B<>0 do
   Begin
   if B mod 10 <> A then C:=C*10+B mod 10;
   B:=B div 10;
   End;
While C<>0 do
   Begin
   B:=B*10+C mod 10;
   C:=C div 10
   End;
WriteLn(B);
ReadLn;
End.