var
A, B, K, M:integer;
begin
write('A = '); readln(A);
write('B = '); readln(B);
write('K = '); readln(K);
write('M = '); readln(M);
if B / A > M / K then
writeln('Серая ткань дороже синей на ', B / A - M / K, ' тенг за метр')
else
writeln('Синяя ткань дороже серой на ', M / K - B / A , ' тенг за метр');
end.
var
A, B, K, M:integer;
begin
write('A = '); readln(A);
write('B = '); readln(B);
write('K = '); readln(K);
write('M = '); readln(M);
if B / A > M / K then
writeln('Серая ткань дороже синей на ', B / A - M / K, ' тенг за метр')
else
writeln('Синяя ткань дороже серой на ', M / K - B / A , ' тенг за метр');
end.