вывести во входном файле значения типа letter (т.е. a,b,c или d) и присвоить его переменной x

program Project2;
 
var sum,co,x:real;
    i,k:integer;
begin
    Write('vvedi x=');
    ReadLn(x);
    sum:=0;
     for i:=1 to 30 do
      begin
        co:=cos(x);
         if i<>1 then
          for k:=1 to i-1 do
            co:=co*cos(x);
        sum:=sum+co;
      end;
    Write('sum=',sum:1:10);
    Readln;
end.

uses crt;
var sum,co,x:integer;
begin
writeln('введите x');
readln(x);
sum:=0;
for i:=1 to 30 do
sum:=sum+cos(exp(i*ln(x)));
writeln('sum=',sum:5:5);
readkey
end.

uses crt;
var a,b,c,x,y,n:integer;
t:boolean;
begin
ClrScr;
textcolor(green);
t:=false;
writeln('введите x,y');
read(x,y);
writeln('введите n');
read(n);
for a:=1 to n do
for b:=1 to n do 
for c:=1 to n do
if (a*x+b*y=c) then 
t:=true else t:=false;
if t=true then writeln(a,b,c) else
writeln('таких значений нет');
readkey
end.

var M,x,chis,i,vrem,vrem1,sum:integer;
begin
    Write('M=');
    ReadLn(m);
    Write('X=');
    ReadLn(x);
    sum:=0;
    WriteLn;
     for i:=1 to m do
      begin
       vrem:=i;
       vrem1:=vrem;
       While vrem1>=10 do
         begin
           chis:=vrem;
           vrem1:=chis mod 10;
            repeat
               chis:=chis div 10;
               vrem1:=vrem1+(chis mod 10);
            until chis=0;
           vrem:=vrem1;
         end;
        if vrem1*vrem1=x then
           begin
            sum:=sum+1;
            WriteLn('nom=',i);
           end;
      end;
    WriteLn;
    WriteLn('sum=',sum);
    ReadLn;
end.