Question

ПОМОГИТЕ УМОЛЯЮ
ДАМ 40 БАЛЛОВ

Answer 1

var К,М :integer;

begin

assign (input,input.txt);

reser(input);

assign(output,output.txt);

rewrite (output);

read(К,М);

writeln (К*М);

close (output);

end. в тетради прямо так и писать .