Вывести на экран все двузначные числа кратные 13}
{и все двузначные сумма цифар которых равна произведению}
program u5;
var i,a,b: integer;
begin
writeln('двузначные кратные 13: ');
for i: =10 to 99 do if i mod 13=0 then write(i,'');
writeln;

writeln('двухначные числа сумма которых равна произведению: ');
for i: =10 to 99 do
begin
a: =i mod 10; b: =i div 10;
if a+b=a*b then write(i,'');
end; writeln
end.

Program arrays;
var a:array [1..3,1..6] of integer;   
i,j:byte;
begin
for i:=1 to 3 do 
    for j:=0 to 1 do   
          begin   
                    a[i,1+3*j]:=random(101)+10;
                    a[i,2+3*j]:=random((1001)+100) div (i+2*j);
                    a[i,3+3*j]:=(random(101)+10) mod 10;   
           end; 
   for i:=1 to 3 do 
           begin 
                      for j:=1 to 6 do   
                                 write(a[i,j],'  '); 
                     writeln;   
         end;
 end.

//Если нужны пояснения - пишите

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.