Var s: array[1..4] of string=('тысяч - ','сотен - ','десятков - ','единиц - ');
<span> nm: string;
</span><span> i: integer;
</span><span>begin
</span><span> write('n = '); readln(nm);
</span><span> for i:=1 to 4 do
</span><span> writeln('цифра ',s[i],nm[i]);
</span><span>end.
</span>
n = 9214
<span>цифра тысяч - 9
</span><span>цифра сотен - 2
</span><span>цифра десятков - 1
</span><span>цифра единиц - 4
</span>
Ответ: Компилятор PascalABC.NET
1) var a,v: integer;
begin
writeln('a'); readln(a); v:=a*a;
writeln(v); end.
2) var a,b,c, v: real;
begin
writeln('a'); readln(a);writeln('b'); readln(b);writeln('c'); readln(c);
v:=(a+b+c)/3;
writeln(v); end.
3)var v,y: integer;
begin
writeln('y'); readln(y); v:=8*y;
writeln(v); end.