for var i := 1 to n do
begin
Write('a[', i , '] >>> ',a[i]);
end;
сами там додумайте
вот, можно так
предлагаю писать слова наооборот.Например:(я напишу,,я отправляюсь на Марс,и прибуду в час ночи,,)так это будет выглядеть:,,ичон сач в удубрип и ,сарМ ан ьсюялварпто я,,. Удачи))
Program asd;
USES crt;
var result:real;
a,b,c,i:integer;
BEGIN
clrscr;
Writeln('Vvedite 3 chisla polowitelnyx: ');
Readln(a,b,c);If (a<0) or (b<0) or (c<0)
then
Writeln('Error!')
else
Result:=(a+b+c)/3;
Writeln(Result);
<span>END.</span>
При составлении таблиц истинности количество строк зависит от количества логических переменных, а количество столбцов - от количества логических операций в выражении.