ПОМОГИТЕ УМОЛЯЮ ДАМ 40 БАЛЛОВ
Где список-то?
var К,М :integer;
begin
assign (input,input.txt);
reser(input);
assign(output,output.txt);
rewrite (output);
read(К,М);
writeln (К*М);
close (output);
end. в тетради прямо так и писать .