АВ
Александр Валинуров
перепишите программу с repeat
program Zadacha5;
uses crt;
var
a, z, ch, zn :real;
i:integer;
begin
write('A=');
read (a);
if (a>2) and (a
program Zadacha5;
uses crt;
var
a, z, ch, zn :real;
i:integer;
begin
write('A=');
read (a);
if (a>2) and (a