Объяснение:
Program raschet;
Var m,n,S:integer;
Begin
Write('количество порций мороженого ');
Readln(n);
Write('количество плиток шоколада ');
Readln(m);
S:=45*n+66*m;
Write('Итоговая стоимость= ',S);
End.
