Любой файл. txt - это расширение. Соответственно название может быть любое
Var
n, x, k, i:integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(x);
if x mod 10 =6 then
inc(k);
end;
writeln(k);
end.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.
var a,b,c:real;
begin
readln(a,b,c);
if a> max(b,c) then writeln(a)
else if b> max(a,c) then writeln(b)
else writeln(max(a,c))
end.
Нужно сравнить что было ДО редактирования с тем, что стало после редактирования. Если есть разница значит есть отличия.