Не уверена
158=100+50+8
1879=1000+800+70+9
Var t,t1:text; b:array[1..20] of integer; i,j:integer;
begin
assign(t,'G:\2015\12\input.txt');reset(t);
while not eof(t) do begin
i:= i + 1;readln(t,b[i]);
writeln(b[i]); end;close(t);
assign(t,'G:\2015\12\output.txt');
assign(t1,'G:\2015\12\output1.txt');
Rewrite(t);Rewrite(t1);
for j:=1 to i do
if b[j] > 0 then
writeln(t,b[j])
else
writeln(t1,b[j]);
close(t);close(t1);<span>end.</span>
Var a,b: real;
begin
read(a,b);
if (a=b/2+7) then writeln('проходит') else writeln('не подходит');
end.
сначала вводится возраст жениха
Управляющий объект: Человек
Объект управления 1: Кнопка
Объект управления 2: Часы
Цель управления: Вовремя дать звонок учащимся