Секдиат-дискета, чевистерн-винчестер)
Практически все правильно. Но если вчитаться в условие 3-ей задачи, то нужно найти файлы с именем file, а ты ее указываешь * перед точкой, что является ошибкой, ведь у тебя указано четкое имя файла.
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var d:=ReadInteger('n=') mod 10;
Writeln(d,#13#10,sqr(d));
end.
<u><em>Тестовое решение:</em></u>
n= 346427
7
49
Var a:array[1..5] of integer;i:integer;m,z:real;
begin
for i:=1 to 5 do
begin
readln(a[i]);
m:=m+a[i];
end;
z:=m/5;
writeln(z);
<span>end.</span>