Ввести имя файла и изменить его на расширение ".exe". дописать : program qq; var s: string; n: integer; begin s: =('.txt'); read(s); n: =pos('.', s); pelete(s, n+1, 3); s: =

Замечание: предполагается, что в имени файла нет ".".
program qq;
var s:string;
begin
writeln('Введите имя файла:');
readln(s);
s:=copy(s,1,pos('.',s))+'exe';
writeln(s);
end.

Пример:
Введите имя файла:
Привет.txt
Привет.exe

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

begin
  var s:=ReadlnString;
  var p:=LastPos('.',s);
  if p=0 then s+='.exe'
  else s:=s[:p+1]+'exe';
  Writeln(s)
end.

Примеры
Привет.txt
Привет.exe

D:\Files\MyDir\Salut.html
D:\Files\MyDir\Salut.exe

Щас укушу
Щас укушу.exe

1)
   var
 a:array[1..100]of real;
 n,p,q,q1:real;
 i:integer;
   begin
    for i:=1 to 100 do
     begin
      read(a[i]);
      if a[i]>=0 then
       begin
        p:=p+a[i];
        q:=q+1;
       end;
      if a[i]<0 then
      begin
       n:=n+a[i];
       q1:=q1+1;
      end;
    end;
   writeln('positive:',p/q);
   writeln('negative:',n/q1);
 end.

2)
      uses crt;
var
n:real;
i:integer;
 begin
 n:=0.5;
 write('  Pounds','       Kg');
 writeln;
   for i:=1 to 20 do
    begin
    write ('    ',n,'       ', n*0.4);
    n:=n+0.5;
    writeln;
    end;
  
 end.

3)
  uses crt;
var
x:integer;
 begin
  write(' x','        y');
  writeln;
   for x:=-5 to 5 do
   begin
      write(x,'       ');
      write(5*(x*x)-(2*x)+1);
      writeln;
   end;
   end.

#include <iostream>
using namespace std;
int main()
{
setlocale (0,"");
int n1,n2,n3,p1,p2,p3;
cout<<"введите количество учеников в каждом классе"<<endl;
cout<<"1-";
cin>>n1;
cout<<"2-";
cin>>n2;
cout<<"3-";
cin>>n3;
    p1=n1/2; if (n1%2!=0) p1++;
    p2=n2/2; if (n2%2!=0) p2++;
    p3=n3/2; if (n3%2!=0) p3++;
cout<<"для первого класса - "<<p1<<endl;
cout<<"для второго класса - "<<p2<<endl;
cout<<"для третьего класса - "<<p3<<endl;
return 0;
}