мне лень на паскале + он туповат, вот код на С++ (современный язык на ряду с Java)#include <bits/stdc++.h>#include <conio.h>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++)#define frr(i,n) for(i=0;i<=(n);i++)#define wl(i,n) while(i<n)#define prllprll pair < pair<long long,long long>,pair<long long,long long> >#define prll pair<long long,long long>#define pri pair<int, int>#define F first#define S second#define sqr(a) ((a)*(a))#define pb push_back#define vll vector<long long>#define vit vector<int>#define sg string#define qit queue<int>#define qll queue<long long>#define pqll priority_queue<long long>#define pqit priority_queue<int>#define y dsadaf#define y1 lfkfgiusing namespace std;lol a,b;int main(){ cin >> a >> b; if (a>=1 && a<=3) cout << 600*b; else if (a>=4 && a<=7) cout << 700*b; else if (a>=8 && a<=14) cout << 500*b; else return 0;}