Логические схемы и выражения.
выполните, , 4 вариант

a,b:integer; 
d:string[45]; 
begin 
SetConsoleOutputCP(1251); 
writeln('Введите число в диапазоне от 1 дo 100'); 
write('a='); 
readln(a); 
b:=a mod 10; 
a:=a div 10; 
case b of 
0: d:=''; 
1: d:='I'; 
2: d:='II'; 
3: d:='III'; 
4: d:='IV'; 
5: d:='V'; 
6: d:='VI'; 
7: d:='VII'; 
8: d:='VIII'; 
9: d:='IX'; 
end; 
b:=a mod 10; 
a:=a div 10; 
case b of 
0: d:=''+d; 
1: d:='X'+d; 
2: d:='XX'+d; 
3: d:='XXX'+d; 
4: d:='XL'+d; 
5: d:='L'+d; 
6: d:='LX'+d; 
7: d:='LXX'+d; 
8: d:='LXXX'+d; 
9: d:='XC'+d; 
end; 
b:=a mod 10; 
a:= a div 10; 
case b of 
0: d:=''+d; 
1: d:='C'+d; 
end; 
writeln('B Римской системе счисления ' ,d); 
readln; 
end. 

1. Современный вариант

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('N=');
  Range(1,n).Select(i->(i.ToString,(i*i).ToString)).
    Where(t->t[0]=t[1].Right(t[0].Length)).Println;
end.

Пример
N= 1000
(1,1) (5,25) (6,36) (25,625) (76,5776) (376,141376) (625,390625)

2. А вот так примерно учат в большинстве школ

var
  n,i,j,li,li2:integer;
  si,si2:string;
begin
  Write('N= '); Read(n);
  for i:=1 to n do begin
    Str(i,si);
    li:=Length(si);
    Str(i*i,si2);
    li2:=Length(si2);
    si2:=Copy(si2,li2+1-li,li);
    if si=si2 then Write('(',si,',',i*i,') ')
    end
end.