мне лень на паскале + он туповат, вот код на С++ (современный язык на ряду с Java)
#include
#include
typedef long long lol;
typedef unsigned long long ull;
typedef int it;
typedef bool bl;
typedef long double ld;
typedef char cr;
#define mp make_pair
#define INF INT_MAX
#define LINF LONG_LONG_MAX
#define fr(i,n) for(i=0;i<(n);i++)<br>#define frr(i,n) for(i=0;i<=(n);i++)<br>#define wl(i,n) while(i#define prllprll pair < pair,pair >
#define prll pair
#define pri pair
#define F first
#define S second
#define sqr(a) ((a)*(a))
#define pb push_back
#define vll vector
#define vit vector
#define sg string
#define qit queue
#define qll queue
#define pqll priority_queue
#define pqit priority_queue
#define y dsadaf
#define y1 lfkfgi
using namespace std;
lol a,b;
int main()
{
cin >> a >> b;
if (a>=1 && a<=3)<br> cout << 600*b;<br> else
if (a>=4 && a<=7)<br> cout << 700*b;<br> else
if (a>=8 && a<=14)<br> cout << 500*b;<br> else return 0;
}