Var
a,b,c,d: string;
f: text;
begin
assign (f,'c: \1.txt');
append (f);
rewrite (f);
write ('новый пользователь: ');
read (f,a);
write ('дата рождения: ');
read (f,b);
c: =2019-b;
d: =18-c;
if d< =0 then write ('0') else write ('до вашего совершеннолетия: ',d);
close (f);
assign (f,'c: \1.txt');
rewrite (f);
writeln (f,a);
writeln (f,b);
writeln (f,d);
close (f);
end.
пишет нельзя преобразовать тип string к integer в 12 строке
!

bolshakovatanyoxd2gr    1   01.12.2019 21:20    2