Program Task_1_11;
Var a, b, c: Integer;
Begin
Write(' Введите число a =') ;
Readln(a);
b:= 5;
c:= a*b;
Writeln (' Произведение ', a,' и ',b, ' равно ' , c);
Readln;
End.
Program Task_1_11;
Var a, b, c: Integer;
Begin
Write(' Введите число a =') ;
Readln(a);
b:= 5;
c:= a*b;
Writeln (' Произведение ', a,' и ',b, ' равно ' , c);
Readln;
End.