Пирожок в столовой стоит a рублей и b копеек. Определите, сколько рублей и копеек нужно заплатить за n пирожков.
Проблема в том. что не могу вывести отдельно копейки. Попробуйте написать всё решение

Java Script!!!
Входные данные
Программа получает на вход три числа: a, b, n - целые, положительные, не превышают 10000.

Выходные данные
Программа должна вывести два числа: стоимость покупки в рублях и копейках.

program pryam;

var y1, y2, y3, x1, x2 : real;

begin

  writeln ('введите координату (у) верхней точки прямой');

  readln (y1);

  writeln ('введите координату (у) нижней точки прямой');

  readln (y2);

  writeln ('введите координату (х) точек-концов прямой');

  readln (x1);

  writeln ('введите координату (у) точки, принадлежность к прямой которой нужно определить');

  readln (y3);

  writeln ('введите координату (х) точки, принадлежность к прямой которой нужно определить');

  readln (x2);

if (y3< =y1) and (y3> =y2) and (x2=x1) then writeln (' принадлежит ')

else writeln (' не принадлежит ');

readln;

end.

var s: string;

i,j,k: integer;

unique: boolean;

begin

  for i : = 1000 to 9999 do

  begin

        s : = str(i);

        unique: =true;

        for j: = 1 to length(s)-1 do

              for k : = j+1 to length(s) do

              begin

                    if s[j] = s[k] then unique: =false;

              end;

        if unique then

            writeln(i);

  end;

end.

может длинее, но универсальное.

program dl9_alina73; var a: array [1..3,1..3] of real;

b: array [1..3,1..3] of real;  

c: array [1..3,1..3] of real;  

i,q: integer;

begin

randomize;   for i: =1 to 3 do begin

for q: =1 to 3 do begin

a[i,q]: =random(10)

end end;  

  for i: =1 to 3 do begin

for q: =1 to 3 do begin

b[i,q]: =random(5);

end end;  

  for i: =1 to 3 do begin

writeln;  

for q: =1 to 3 do begin

c[i,q]: =a[i,q]*b[i,q];

write (c[i,q]) 

  end end;

readln

end. 

драйверы,утелиты,софт,мультимедиа.