1) а:=b(13)+a(-2)*3=13+(-2*3)=13-6=7
2) a) readln(а); readln(х);
б) writeln(z)
в) var b,c : real; (чаще всего используется при нахождении вещественных чисел)
var a: integer; (чаще всего используется при нахождении вещественных чисел)
г) if d = a(число, которому нужно прировнять, этот фрагмент цикла(если…,то ..иначе)) then d:=d+20; д) z := x + y; ( : = это знак присвоения)PROGRAM PR1;
var n:integer;
begin
for n:=1 to 7 do
writeln('trud');
end.
Program n1;
var a,k,sum: integer;
f: text;
begin
assign(f,'input.txt');
reset(f);
sum:=0;
k:=0;
while not eof(f) do
begin
readln(f,a)
sum:=sum+a;
k:=k+1;
end;
close(f);
assign(f,'output.txt');
rewrite(f);
write(f,sum/k);
close(f);
end.