Ответ:
Write() и Writeln() - вывод текста на экран
Read() и Readln() - запись текста с клавиатуры
Приписка ln обозначает, что нужно отступить строчку после команды
Var
A:integer;
Begin
Write(A);Read(A);
if (A>9)and(A<100) then Write('А - двузначное')
else Write('А - не двузначное')
End.
Var
a: array [1..4] of real;
begin
readln(a[1], a[2], a[3]);
a[4] := (a[1] + a[2] + a[3]) / 2;
writeln(sqrt(a[4] * (a[4] - a[1]) * (a[4] - a[2]) * (a[4] - a[3])));
<span>end.</span>
For i:=1 to 9 do
for j:= 0 to 9 do
if((i*i+j*j-3*i*j=1)and((i*10+j)div(i+j) = 7)and((i*10+j)mod(i+j) = 7) then write('Искомое число',i*10+j);
end.
Могу ошибаиться с пониманием задачи, мой ответ: 78 или 12+11+10+9+8+7+6+5+4+3+2+1