C++ :

#include<bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
	cin>>x>>y;
	cout<<x%y;
				
	return 0;
}

Pascal :

var a,b:longint;
begin
  readln(a,b);
  writeln(a mod b);
end.