Program calculator;
Var a,b: real;
Begin
Write('Первое число:');
readln (a);
Write('Второе число:');
readln (b);
Write('Результат: ',a+b);
End.
Если я правильно Вас поняла, то ИНЖИР))))))))))))))))
Program chisl;
var i,j:integer;
mass1:array[1..5] of integer;
mass2:array[1..5] of integer;
begin
j:=0;
for i:=1 to 5 do begin
read(mass1[i]);
if mass1[i]>=10 then begin
j:=j+1;
mass2[j]:=mass1[i];
end;
end;
for j:=1 to j do
write(mass2[j]:3);
<span>end.</span>
div это деление нацело то есть без остатка
mod это остаток от деления
345 div 10 = 34
467 mod 100 =
67
398 div 10 mod 10 =
39
27 div 5 =
5
45 mod 9 =
0
753 div 10 mod 5 =0