var
<span>i:integer;</span>
a:string;
<span>begin</span>
a='PRIVET'
<span>for i:=1 to 10 do</span>
<span>write(a, ' ');</span>
<span>end.</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.
Если не ошибаюсь способов 2